IDENTIFICATION 



SEQ 0001 



PRODUCT CODE} 



MAINDEC-ll-OXOLN-B-D 



PRODUCT NAME} 



DEC/Xll DECNET LIBRARY 



DATE I 



MARCH 1977 



MAINTAINERI 



DIAGNOSTIC GROUP 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
Mtt SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORMIOM!. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
rOR UNY ERRORS iHkJ! NAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE 
AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH 
LICCNgE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 



COPYRIGHT (C) 1976, 1977 
DIGITAL EQUIPMENT CORPORATION 



CONTENTS 



SEQ 0002 



NtAB DEC/Xll DLCNET SERVICE MODULE ill 

NUAA OEC/Xll DECNET DU-11 MODULE 

NQAA DEC/Xll DECNET DQ-11 MODULE 

NPBA DEC/Xll DECNET DUP-U MODULE 

NLAA OEC/XU DECNET DL-ll-C MODULE 

N2AA DEC/Xll DECNET SERVICE MODULE »2 



NIAB DEC/Xll SYSTEM EXERCISER MODULE 
N1AB,P11 1)-JAN.77 UtSl 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
32 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
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.REM « 



IDENTIFICATION 



PRODUCT COOEl MAINDEC-1 I-DXNIA-B-D 

product name: oecnet dec/xll service exerciser module #1 

date: march 77 

MAINTAINER: DEC/Xll DIAGNOSTIC GROUP 

THE INFORMATION IN THIS DOCUMENT llS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN. 

THE SOFTWARE DESCRIBED IN tHIs DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WiTH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE Op RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 



COPYRIGHT (C) 1976, 1977 

DIGITAL EQUIPMENT CORPORATION, MaYNARO, MASS. 
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39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
IfA 
71 
72 
73 
74 
75 
76 
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NIA? IS A SERVICE MODULE USED BY DECNET DEC/Xll 
MODULES. IT DOES NOT TEST ANY DEVICES, IT MUST BE INCLUDED AS THE 
FIRST MODULE* DIRECTLY AFTER THE MONITOR, IN THE CONFIGURING OF THE 
RUN TIME EXERCISER, ALL DECNET DEC/Xll MODULES MUST FOLLOW 
IT AND THEN THE N2A? MODULE MUST FOLLOW THEM, NEXT THE CLOCK MODULE 
SHOULD FOLLOW AND THEN ALL NORMAL DEC/XU MODULES IN ANY ORDER, 
THIS MODULE IS USED TO HOLD SEVERAL COMMON SUBROUTINES AND ONE COMMON 
TRANSMIT BUFFER WHICH ARE USED BY ALL DECNET DEC/XU MODULES, 
WHEN THE EXERCISER IS RUN, THIS MODULE WILL ASK QUESTIONS 
REGARDING THE TYPES OF LINES TO BE RUN AND WHICH MESSAGE OPTION 
YOU PREFER. 

»»*««•»••»•«»•»«»*«••«»•«»««•••«•»«*•»»««*«*•»#»•••« »«»«•••••»**** 

IMPORTANT 

EVERY NODE IN THE NETWORK BEING EXERCISED MUST USE THE EXACT SAME 
MESSAGE! 

»«•»*«•«•»•«»•»••»«•••««»••»•*#*»«•••»»««***»•••»•••«•*»»***«***** 

THIS MODULE IS A SPECIAL NBKMOO SO IT WILL ONLY REPORT 1 END OF PASS 
AND THEN NEVER RUN AGMN. IF THE OPERATOR DOES NOT WANT TO ANSWER 
ALL THESE LINE QUESTIONS EVERY TIME HE RESTARTS THE EXERCISER, HE 
CAN CHANGE LOCATION 164 TO BE A 000001. 

HOWEVER, IF HE THEN LATER WANTS TO MODIFY A PARAMETER, HE WILL 
HAVE TO MOD LOCATION 164 IN THE MODULE BACK TO A 000000. 
WHILE ANSWERING THESE LINE QUESTIONS FOR AN INDIVIDUAL MODULE 
(I.E. DEVICE TYPE) AN "8" REPLY WILL SKIP THE 

REST OF THE QUESTIONS FOR THAT MODULE, LEAVING THE OTHER PARAMETERS 
UNCHANGED. 

THIS MODULE IS USED BY ALL DECNET DEC/Xll MODULES TO DO 

DATA COMPARING OF RECEIVED MESSAGES, WHEN IT FINDS AN ERROR FOR 

A DECNET DEC/XU MODULE, IT REPORTS IT, THEREFORE ITS NAME IN THE 

RUN TIME EXERCISER IS INITIALLY N1XX0, BUT THIS NAME IS CHANGED EVERY 

TIMF IT REPORTS A DATA ERROR FOR A DECNET MODULE TO SHOW WHICH 

DECNET MODULE REALLY HAS THE ERROR. THEREFORE, 

IN RUN SUMMARIES AND WHEN USING THE MOD COMMAND, THIS MODULE'S NAME 
CHANGES. TWO FIGURE OUT WHAT NAME IT HAS, CHECK THE LAST RUN SUMMARY 
OR USE THE MAP COMMAND. SEE THE DECNET DEC/XU USER'S GUIDE, DXQ8C?, 
FOR A MORE COMPLETE EXPAINATION. 
% 
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8E0 0005 





V0VwW 






78 








79 








8tf 








6 1 

82 








83 


900fc300 * 






84 




03051 6 


041 101 


3* 




000 




86 


900006 * 


090000 




87 


#00010' 


900000 




88 


000012' 


000 




89 


00001 3 * 


000 






000^ 14' 


00909 i 




9 1 


00001 6 ' 


090000 












93 




04 1000 




'* 


000022 ' 










0001 6 4 ' 




96 




VWv W 




97 


WW JIP 


000000 




98 




000000 




99 


000034' 


000000 




1 00 


000036 ' 


990000 








000000 




102 


000042 ' 


000000 




103 




000000 




1 04 


000046' 


090000 




1 09 


00005? ' 


900000 






000052 ' 






1 07 


000052 ' 


000000 




1 33 










900054 ' 


000000 




110 


000056' 


000000 






000060 ' 


090000 




111 












009040 




114 








lis 

' J* 
















1 17 








1 1 a 


000164 






1 1 o 








1 20 








■71 








195 








123 








124 








125 








126 








127 


000164' 


000000 




128 








129 


i?00i66' 






130 


000166' 


116700 


000000G 


131 


000172* 


906000 




132 


000174' 


103004 





NIKMOD <N1M > 

NODULE 41M«rlllAB 

.TItLC HtAK OK/Xll SXSTOt EZCKCtSCR MODULE 

I DDXCON VKKfleil 4 9/6/75 

.List Bia 



BEGINS 








nDuNAH 8 


•ASCII 


/NIAS / 


{MODULE NAME. 


XFLAGi 


,Bf fE 


OPtN 




ADDRs 


*0 




1 1 ST DEVICE AODR « 


' VECTOR t 






|15T DEVICE 


BRi 1 


.BYTE 


PRTI^t 


tIST SR LEVEL. 


BR2| 


,BYTE 


PRTY*f 


}3N0 BR LEVEL. 


DVlDl t 


♦ 1 




|DEVI8C INDICATOR 1 . 


SRll 


OPEN 




iSMlTCH REGISTER 1 


STATi 


41M0 




tSTATSS NORD, 


INITI 


START 




yHODU^B START ADDR. 


SPOINTS 


HODSP 




.HAPlltTB* MfKCK DATHVi*D 


PABCNTS 







IrAoo CVURTbK. 










SVR0t 


ODCH 




J TV " ■» l^wr m 




OPEM 




|LOC TO SAVE Rl . 




oprn 




|LOC TO SAVE R3. 




OPEN 




|LOC TO SAVE R3. 


svm! 


OPEH 




}LOC fO SAVE R4. 


SVRSt 


OPEN 




;LOC TO SAVE R5. 


5VR6I 


OPEN 




(LOC TO SAVE R6. 


CSRA8 


OPEH 




;AODR or CURRENT CSR. 


SBADRt 






f ADDR or GOOD DATA, OR 


ACSRS 


OPEN 




^CONTENTS or CSR. 








"ADDR -^yf SAD DATA. OR 


ASTATi 


OPEH 




tSTATVS BEG CONTENTS. 


ASBi 


OPEH 




{EXPECTED DATA. 


AHASt 


OPEN 




lACTUU DATA. 


RSTRIj 


RESTRT 




1 RESTART ADDRESS ArTER END Or PASS 




.REPT 


SPSIt 


;MODULE STACK STARTS HERE. 




.HLIST 








.NORD 









.LIST 








.ENDR 







.GLOBL KHllX,KHllL»KHllP,CLOCK>TIHE.riLCNr>FILLER 
.CLOBL TKSfTKB.TPSfTPB, TYPE, NSGHCD, MSG, MSGSIZ, WAIT 
.GLOBL CRC«CICHSG,CRCMSG,0EVSET,8R>PHRCNT 

IF THIS LOCATION Is HON-ZERO, THE OEVSET ROUTINE HILL 
NOT ASK OPERATOR POR HALr/rULL DUPLEX SETUP, ETC. 



STARTS 

RESTRT: MOVB 
ROR 



CLOCK, R0 ;FIND OUT WHICH CLOCK WE HAVE 

M lis IT KkllL? 

It iBR IP NOT 
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1 33 


000176' 


012767 


000002G 


003214 




MOV 


|KH11L<»2,TIHE 


JELSE LET TIME POINT TO "TIME" 


134 


»00204' 


000423 








BR 


COPT 




135 


000206' 


006000 






ISS 


ROR 


R0 


;IS IT KMllP? 


136 


900210' 


103004 








see 


2t 


;BR ir NOT 


137 


000212' 


012767 


000002G 


003200 




MOV 


tKNllP«2,TIME 


;ELSE LET TIME POINT TO "TIME" 


1 38 


000220' 


0;«04l5 








BR 


GOPT 




139 


000222^ 


006000 






2s: 


ROR 


R0 


;IS IT A FAKE CLOCK? 


140 


000224' 


103004 








BCC 


3t 


;BR ir NOT 


141 


M0226' 


012767 


000002G 


003164 




NOV 


|KHllXf2,TIME 


lELSE LET TIME POINT TO "TIME" 


142 


000234' 


000407 








BR 


GOPT 




143 


000236' 


012767 


004241 ' 


000004 


3$l 


MOV 


tN0CLKM,4t 


;PUT MSG ADDR ON STACK 


144 


000244' 


004567 


000714 






JSR 


R5,TYPE 


jCALL TYPE ROUTINE 


145 


000250* 


000000 






4t! 


OPEN 






146 


H002S2' 


000000 








HALT 




jCANI'T RUN WITH NO CLOCK 



147 
1 48 
149 

150 
151 
152 



GET MESSAGE OPTION FROM THE USER. 
NOTES ONLY THE LAST CHARACTER TYPED BEFORE "CR" 
IS SIGNIFICANT. ALL PREVIOUS CHARACTERS (IF ANY) 
ARE IGNORED. 



153 


000254* 


005767 


004210 


GOPTl 


TSI 


IMFLAG 


;FIRST TIME THRU THIS MODULE? 


154 


000260' 


001011 






BHE 


3$ 


;BR IF NOT, 


155 


000262' 


032777 


000001 


000000G 


BIT 


ll,»SR 


{HAS THE OPERATOR DISABLED MSG'S? 


156 


000270' 


001003 






BNE 


It 


;BR IF YES. 


157 


000272' 


004567 


000666 




JSR 


R5,TYPE 


{TYPE ERROR CODES. 


158 


000276' 


003445* 






IMSG 






159 


000300' 


005267 


004164 


It: 


INC 


IMFLAG 


jDON'T TYPE IT AGAIN. 


160 


000 304' 


095077 


003110 


211 


CLR 


0TIME 


J SET TIME TO ZERO 


161 


000310' 


005067 


001240 




CLR 


CKMSC 


;SHOH THAT CKMSG ROUTINE ISN'T BUSY 


162 


000314* 


005067 


001570 




CLR 


R4SAV J CLR R4 


COUNTER 


163 


000 320' 


005067 


001566 




CLP 


R4SAVt2 r CLEAR 


SAME FOR LINE 1 


164 


•00331* 


012767 


004475' 


000004 


MOV 


tGETHG,6t 


{PUT MSG ADR ON STACK 


165 


000332* 


004567 


000626 




JSR 


R5,TYPE 


{CALL TYPE>OUT ROUTINE 


166 


0003 36' 


080000 




6St 


OPEH 






167 


000340' 


012700 


003445* 


GETHSG! 


MOV 


|M8G'»1,R0 


{GET BUFFER ADDR 


168 


000344' 


017767 


000000G 


000720 


MOV 


•TKSfTKSSAV 


{SAVE TTY STATUS 


169 


000352' 


005077 


000000G 




CLR 


•TKS 


{OIABLE INTERRUPTS 


170 


»d»336' 


005001 






CLR 


Rl 


{SET hEssAGe. size to ztRU 


171 


•00360' 


105777 


000000G 


ISI 


TSTB 


0TKS 


{WAIT FOR A CHARACTER 


172 


•00364' 


100375 






BPL 


.-4 




173 


•09366' 


H"»702 


00000 0G 




MOVB 


!»TKB,R2 


{BRING CHARACTER IN 


174 


•00372' 


042702 


177600 


2$l 


BIC 


1177600, R2 


{GET RID OF PARITY BIT 


175 


•00376' 


110267 


004034 




MOVB 


R2, OUTPUT 


{ONE CHARACTER BUFFER. 


176 


•00402' 


•12767 


004436* 


000004 


NOV 


1 OUTPUT, 21 t 


{USED IN THIS CASE TO ECHO 


177 


•00410' 


004567 


000550 




JSR 


R5,TYpe 


{THE INPUT CHARACTER. 


178 


•00414' 


000000 




21S; 


OPEN 






179 


•00416' 


172702 


000015 




CHPB 


•15, R2 


{WAS IT A CR? 


180 


000422* 


001402 






BEO 


3t 


{BR IF YES. 


181 


M0424* 


010303 






MOV 


R3,R3 


{SAVE IT, DESTROYING PREVIOUS CHARACTER. 


182 


000426* 


000754 






BR 


It 


{GET NEXT CHARACTER. 


183 


000430* 


112767 


000012 


004000 3$: 


MOVB 


» 12, Output 


{LINE FEED TO BUIFER. 


184 


•00436* 


312767 


004436* 


000004 


MOV 


•OUTPUT, 4$ 


{TYPE IT OUT. 


185 


000444* 


004567 


000514 




JSH 


R5,TYPE 




186 


000450* 


04000)f 




4$: 


OPEN 






187 


000452' 


120327 


000060 




CMPB 


HI, 460 


{MUST BE BETWEEN '0* AND 'b'. 


188 


000 4S6' 


00741 1 






BLT 


HELP 


;RP IF BELOW ASCII '0'. 
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SEO 0007 



109 


MI0460* 


1 20327 


000066 






190 


#00464* 


#03006 








19] 


M0466' 


1 62703 


000060 






1 92 


V00472 * 


#00257 








193 


V00474* 


006103 








1 94 


000476' 


0001 7 3 


004452 ' 






195 


900502 * 


01 2767 


00457 4 * 


000004 


HELP 1 


1 96 




004567 


•00450 






1 97 


M0S14* 


000000 






5S ! 


1 96 


#005 16' 


000656 




















200 










[ 


201 












202 


•00520* 


005001 






ZEROc 


203 


#00522' 


000405 








204 


#00524' 


005001 






ONESS 


205 


#00526* 


005101 








206 


#00530' 


#00402 








207 


#00532' 


1 13701 


000352 




ALTERi 


208 


#00536' 


01 3700 


003444' 




f ILLi 


209 


#00542* 


1 05720 








210 


#00544' 


023700 


004434* 




111 


21 1 


#00550* 


001517 








212 


000552* 


1 1 0t 30 








213 


#00554* 


000773 








214 












215 












216 












217 


900556* 


005000 






horsti 


219 


#00560* 


005001 








219 


#00562* 


01 3702 


003445 * 






220 


#00566* 


072702 


004434* 




It 1 


221 


#00572* 


001506 








222 


#00574* 


1 1 0032 








223 


#00576' 


005201 








224 


#00600' 


042701 


177760 






225 


#00604' 


01 01 00 








226 


#00606 ' 


006300 








227 


#00610' 


006300 








226 


#00612* 


006300 








229 


#0061 4 * 


006300 








230 


#00616* 


0601 00 








231 


#00620' 


000762 








232 












233 












234 












235 


000622* 


012767 


005162' 


000004 


USERS 


236 


C00630* 


004Sb7 


000330 






237 


0006 34* 


000000 






18: 


238 


000636' 


01270^ 


003445' 






239 


<»00642* 


005077 


000000 G 






24(» 


000646' 


012701 


000001 






241 


000652' 


Ji»5777 


000000G 




3tl 


242 


•00656' 


100375 








243 


000660' 


117702 


000000G 






244 


#00664* 


142702 


000300 







CKPB 
BGT 
SUB 
CCC 
ROL 
JMP 
MOV 
JSR 
OPEN 
BR 



R3f««6 

HELP 

t60fR3 

R3 

•0DISP(R3} 

iHCLPMfSf 

RSfTYPE 



tCOHPftRC TO ASCII '6*. 

ISEE ir IT'S k RUBOUT. 

iMAKC WORD OrrSEt FROM ASCII. 

I ASSURE CLEAR CARRY BIT. 

ISO It CAN BE HADE A BYTE OPPSET. 

jUSE IT TO DISPATCH TO PROPER OPTION ROUTINE, 

lERROR IN INPUTi TYPE SOME INSTRUCTIONS. 



GOPT >G0 BACK AND TRY AGAIN. 

FILL BUFFER KITH CHARACTERS SELECTED BY USER. 

jFILL CHARACTER ■ 000. 
»FILL CHARACTER m 377. 



CLR 
BR 
CLR 
COM 
BR 

HOVB 

NOV 

TSTB 

CMP 

BEO 

HOVB 

BR 



Rt 

FILL 
Ri 
Ri 

FILL 
•3S3rRi 
iMSGfPO 
(R«)« 

fCRCMSG.RO 

cOONE 
R1>(R#)+ 
1( 



MORST CASE BIT PATTERN. 



CLR 

CLR 

NOV 

CMP 

BEQ 

HOVB 

IHC 

BIC 

HOV 

ASL 

ASL 

ASL 

ASL 

ADD 

BR 



R0 
RI 

|MSC«1«R3 

ICItCDSC,R3 

DONE 

M,lMi* 

RI 

tl77760>Rl 
R1>R0 

R0 
RO 
R0 
R0 

RIfRO 
tt 



tFILL character > 353. 

(address of message buffer. 

jhove Around osop protocol character. 

, first crc byte (end of msg buffer)? 

tBR IP YES. 

(STORE CHARACTER IN BUFFER. 
(CONTINUE UNTIL FULL. 



JSTART NITH A ZErO CHARACTER. 
(INITIALIZE HALF-BYTE TO ZERO. 
(SET UP POINTER TO MESSAGE AREA. 
(END OF BUFFER AREA? 
(BR IP YES. 

(HOVE BYTE INTO BUFFER. 
(UPDATE HALF-BYTE. 
(CLEAR ALL BUT HALF-BYTE. 
(PUT IT INTO R0... 
(AND SHIFT IT OVER. 



(SECOND HALF-BYTE. 

(CONTINUE PROCESS UNTIL BUFFER FULL. 



READ IN THE USER DEFINED MESSAGE. 



HOV 

JSR 

OPEN 

MOV 

CLR 

HOV 

TSTB 

BPL 

HOVB 

BICB 



•USERM.ll 
R5,TYPE 

INSCtl .R0 

•TKS 

It.Rl 

• TKS 

3t 

•TKB,R3 
I300>R3 



(TYPE INSTRUCTIONS. 



(SET POINTER TO TOP OF MESSAGE BUFFtR. 
(DISABLE TTY INTERRUPTS. 

(CHARACTER COUNT TO ONE (OSOP PROTOCOL), 

(INPUT READY? 

(NO. NAIT FOR IT. 

(GET THE TYPED CHARACTER. 

(STRIP PARITY. 
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Nl AB.Pl 


1 3- 


JAN. 77 


16|51 




245 


•00670' 


122702 


000177 




746 


000674* 


001006 






247 


000676' 


005701 






348 


•00700' 


001755 






249 


•00702' 


005301 






750 


000704' 


005300 






251 


000706' 


111002 






252 


•00710' 


000405 






253 


000712' 


122702 


000100 




254 


•00716' 


001433 






255 


•00730' 


1 10220 






256 


000723' 


005201 






257 


000724' 


1 10267 


003506 






Si!B73!!' 




S?1 * 3^ ' 




259 


000736' 


004567 


000222 




260 


000743' 


000000 






261 


000744' 


070137 


000765 




262 


000750' 


001411 






26 3 


•00753' 


120237 


000015 




264 


•00756* 


001335 






265 


#0076^' 


013703 


000012 




266 


000764' 


000753 






267 


000766' 


010167 


003446 




366 


000772' 


00041 1 






269 


000774' 


013767 


004472* 


000004 


270 


001002* 


004567 


000156 




271 


001000* 


000000 






272 


•010M* 


013767 


000766 


003422 


273 


001016* 


012767 


000001 


003416 


274 


001024* 


016777 


000242 


000000G 


275 


•01032* 


116767 


003402 


003375 


276 


•01040' 


116767 


003375 


003370 


277 


D01046* 


153767 


000300 


003362 


276 


•01054' 


012767 


003434' 


000014 


279 


•01062' 


012767 


000006 


000004 


280 


•01079' 


004567 


000202 




261 


•01074' 


000000 


000000 




282 


•01100' 


016767 


177772 


002334 


263 


001106' 


i;i2767 


003444* 


000014 


264 


001114' 


016767 


003320 


000004 


265 


001132* 


004567 


000150 




286 


001126' 


000000 


000000 




287 


001132* 


016767 


177772 


003274 


288 


001140' 


016701 


003274 




269 


001 144' 


1 I67t>l 


177760 


003444* 


290 


001152' 


1 16761 


177753 


003 145* 


291 


001160' 


t 04402 


000000* 




292 










293 










294 










795 










296 










297 










298 










299 


001 164' 


aia44b 








B0n66* 


0! 0}4h 







7$: 
DONEl 



CMPB 


1177, R2 


; IS IT A RUBOUT? 


BNE 


3$ 


(SKIP IF NOT 


TST 


RI 


(ANY CHAR'S LEFT TO BUB OUT? 


BEQ 


IS 


(BR IF NOT, IGNORE RUBOUT 


DEC 


RI 


(MOVE CHAR COUNT BACK 


DEC 


RO 


(MOVE BUFFER POINTER BACK 


HOVB 


(R0},R2 


(SET UP TO TYPE OUT OLD CH»P»CTEK 


BR 


4$ 




CHPB 


1100, R2 


(HAS THE CHARACTER AN '•*? 


BEQ 


511 


(BR IP YES. 


HOVB 


R3,(R0)+ 


(STORE CHAR IN MSG 


INC 


Bl 


(UP HSG SIZE 


HOVB 


B3, OUTPUT 


(MOV CHAR TO BUFFER 


«0V 


lOllTPiIT, 41 1 


rPUT ADOR ON STACK 


JSR 


R5,TYPE 


(GO ECHO IT 


OPEN 






CHP 


R1,«90I. 


(ANY ROOM LEFT IN MSG? 


BEQ 


6t 


;BR IF NOT 


CMPB 


R3,*15 


(HAS CHAR A 'CR'? 


BNE 


3( 


(BR IF NOT BACK TO PICK UP NEXT 


HOV 


tl3,R3 


(PUT A LINE FEED INTO THE BUFFER. 


BR 


3« 


(PROCESS THE LF JUST LIKE ALL CHARACTERS. 


HOV 


Rt,Msesiz 


(COUNT IS THE MESSAGE SIZE, 


BR 


FINISH 


(COMPLETE THE MODULES TASKS. 


HOV 


ICRLF,7t 


(FULL BUFFER, FORCE A CR AND LF. 


JSR 


R5,IYPE 


(TYPE 'EM. 


OPEN 






HOV 


I503.,HSGSIZ 


(SET MESSAGE SIZE. 


MOV 


It, WAIT 


(TELLS MODULES TO WAIT FOB NT2 


MOV 


TKSSAV,»TKS 


(RESTORE TTY STATUS TO WHAT IT WAS 


HOVB 


HSCSIZ, COUNT 


(PUT LOW BITS OF COUNT IN HEADEB 


HOVB 


MSGSIZ^irCOUNT^l 


(HIGH BITS 


BISB 


•3#0,COUNT«1 


(SET FLAG BITS IN HEADER 


HOV 


lMSGHED,8l+2 


(PUT HEADER ADDR ON STACK 


HOV 


t#,8« (HEADER 


LENGTH 


JSR 


M.CHC 


(GO CALC CRC 


OPEN, OPEN 




HOV 


••ta,CRCHED 


(PUT CRC IN HEADER 


HOV 


tH8G,9f«a 


(PUT MSG ADDR ON STACK 


HOV 


HSGSIZ,9t 


(MSG LENGTH 


JSR 


R5,CRC 


(GO CALCULATE CRC 


OPEN, OPEN 




MOV 


9I+3,CRCMSG 


(PUT HSG CRC IN GLOBAL tOC . 


HOV 


MSGSIZ,Rt 


(GET SIZE OF MSG 


HOVB 


9l*3rMSG(Rl) 


(PUT CRC AT END OF MSG 


HOVB 


9I*3,MSG4'1(R1) 




ENDPSt, 


BEGIN 


(SIGNAL END OF PASS. CONTINUE AT BESTBT 


-CALLFD 


BY (A) PUTTING ADDR OF ASCIZ MSG AFTEp JSP CALL 




(B) DO A JSR 


R5,TYPE 




DOES NOT DESTROY 


ANY REGISTEHS 


MOV 


P4,-(r61 


(SAVE B4 


MOV 


H1,-(R6) 


;SAVE R3 
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SEQ 00fl9 



301 


001 170' 


01 2503 




302 


#01 172* 


01 7767 


000000G 


303 


#01200' 


005077 


000000G 


304 


001204* 


1 0571 3 




30S 


00i 206 " 


001423 




306 


M12i0' 


1 2271 3 


000012 


307 


00121 4* 


9^1012 




39S 


B9! 216* 


I ! 6704 


0000000 


309 


001222* 


1 16777 


000000G 


310 


001230* 


1 05777 


000000G 


311 


00 1 2 3 4 ' 


100375 




312 


001236* 


005304 




313 


901 240 * 


t 90370 




314 


001 242 * 


1 12377 


000000G 


315 


001 246 * 


1 05777 




316 


001252' 


1 00375 




317 


901254* 


009753 




318 


901256* 


01 2603 




319 


001260* 


012604 




320 


901 262 * 


016777 


000006 


321 


901270' 


000205 




322 








323 


901272* 


900000 




324 


901274' 


000000 




325 








326 








327 








328 








329 








3 30 








331 








332 








333 








334 








335 








336 








337 








3 38 








339 








340 








341 


901 276' 


010067 


000576 


342 


90t 302* 


01 0167 


000574 


343 


901 306* 


010267 


000572 


344 


001312* 


010367 


000570 


345 


901316* 


010467 


000566 


346 


901322* 


01 2501 




347 


901 324* 


01 1500 




348 


901326* 


005002 




349 


901330* 


112003 




350 


901332* 


010246 




351 


901334* 


040316 




352 


901336' 


040203 




353 


901340* 


052603 




354 


901342* 


010304 




355 


901344* 


042703 


177760 


356 


901350* 


006303 





2tt 



3ft 



NOV 

NOV 

CLR 

TSTB 

BCQ 

CHPB 

BHC 

HCVS 

HOVB 

TSTB 

BPL 

DEC 

BPL 

NOVB 

X5XB 

BPL 

BR 

NOV 

NOV 

NOV 

RTS 



»TPS»TPSSAV 

•TPS 

CRD 

4« 

tl2.(R3) 
38 

r:uCs«T,P4 

FILLCR^atPB 

•TPS 

.•4 

R4 

2* 

(R3}«,»TPB 

•TPS 

.-4 

1( 

(R6)t,R3 
CR«)*,R4 
TPSSkV,*TP8 

R5 



TKSSAVI 
TPSSAVI 

> 

iCRC • SUBROUTINE 
I TO CALL PUT LENGTH, IN BTTCS. 
;PUT ADDRESS or FIRST BYTE NEXT 
;D0 JSR RSrCRC 

tRETURHs NITH OKE !!ORD QF CRC-! 



>F0r CXANPLE 



,GET ADDP TO BE TVPED 
,SAVE TTY STATUS 
; DISABLE INTERRUPTS 
;TERHI«AT0R7 

;EXIT IF SO 

J IS THE CHAR A LINE FEED7 

jHO, SKIP FILL CHAR'S 

;CET THE FILL COUNT 

;TYPE A FILLER 

;D0NE YEIT 

;N0, NAIT 

•DEC COUNT 

jLOCP UNTIL S 

jLOAO AND TYPE CHAR 

flS PRINTER READY? 

,HAIT TILL IT IS 

;GET NEXT CHAR 

; RESTORE R3 

(RESTORE R4 

; RESTORE TTY 

J RETURN 



AFTER JSR CALL 

6 VHESE ADDRESS HAS 



MOV 


LEHGHTf K 


}MOVE LENGTH IN 


MOV 


ADDR,1(42 


{NAVE ADDRESS IN 


JSR 


RS,CRC 


jGO CALCULATE 


OPEN) 


rOPEN 




MOV 


lt*2,CRCL0C 


;PUT CRC WHERE YOU MANT IT 


NOV 


R0,R0SAV 


TSAVE R0 


NOV 


RlfRlSAV 


I Ri 


MOV 


R2#R38AV 


» R2 


NOV 


R3#R3SAV 


; R3 


MOV 


R4,R4SAV 


; R4 


NOV 


(RS}^«R1 


;GET LENGTH IN REGISTER 


MOV 


(RS),R9 


} ADDR 


CLR 


R2 


;CRC VALUE REGISTER 


MOVB 


(R«)«,R3 


jCHAR TO ADD 


MOV 


R2«-(SP) 


>XOR OLD CRC AND DATA CHAR 


BIC 


R3,(SP) 




BIC 


R2»S3 




BIS 


(8P)t,R3 




MOV 


R3«R4 


;8AVE VALUE 


BIC 


4177769, R3 


;CLEAR HIGH BITS 


ASL 


R3 


}HAKE WORD INDEX 



NlAB DEC/Xll SlfSTEH EXERCISER MODULE 
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NlAB.Pll 


1 13-JAN-77 1 


16J51 








357 


901352' 


016303 


001454' 


MOV 


CRCTAB(R3),R3 


t MODIFIER WORD 


358 


001356' 


042704 


177417 


BIC 


f 177417, R4 


;LEAVE HIGH 4 BITS 


359 


901362' 


006204 




ASR 


R4 


;MAKE WORD INDEX 


360 


901364' 


006204 




A8R 


R4 




361 


001366' 


006204 




ASR 


R4 






BS137B' 


016404 




sov 


CRCTABt32, (R4} 


,n4 jnCCIFIER MuRD 


363 


001374' 


010446 




MOV 


R4,-(8P) 


J TOTAL MODIFIER 


364 


901376' 


040316 




BIC 


R3,(SP) 




365 


001400' 


040403 




BIC 


R4«R3 




366 


901402' 


052603 




BIS 


(SP)t,R3 




367 


001404* 


105002 




CLRB 


R2 


{CLEAR LOW BYTE OLD 


368 


001406* 


000302 




SHAB 


R2 


jMOVE HIGH TO LOW 


369 


001410* 


010346 




NOV 


R3,-(SP) 


;XOR TOTAL MODIFIER 


370 


901412* 


040216 




BIC 


R2,(8P) 




371 


901414* 


040302 




BIC 


R3,R3 




372 


901416' 


•*52602 




BIS 


(8P)t,R2 




373 


901420* 


005301 




DEC 


Rl 


}OEC CHAR COUNT 


374 


901422' 


001342 




BNE 


It 


)AND GO BACK 


375 


901424* 


010225 




MOV 


R2,(RS}'f 


;SAVE CRC 


376 


001426* 


016704 


000456 


MOV 


R43AV,R4 


; RESTORE R4 


377 


001432' 


016703 


000450 


MOV 


R3SAV,R3 


1 «3 


378 


901436' 


016702 


000442 


MOV 


R28AV,R2 


; R2 


379 


901442* 


016701 


000434 


MOV 


R1SAV,R1 


; Rl 


380 


001446* 


016700 


000426 


MOV 


Re8AV,R0 


; RO 


381 


901452* 


000205 




RTS 


R5 




382 








1 






383 








iCRC TABLE OF MODIFIERS 




384 


901454' 


000000 




CRCTABt 






385 


901456' 


140301 




140301 






386 


901460' 


140601 




140601 






387 


901462' 


000500 




500 






388 


001464' 


141401 




141401 






389 


901466' 


001700 




1700 






390 


901470* 


001200 




1200 






391 


901472* 


141101 




141101 






392 


901474* 


143001 




143001 






394 


901500' 


003600 




3600 






395 


901502' 


143501 




143501 






396 


901504' 


002400 




2400 






397 


901506' 


142701 




142701 






398 


901510* 


142201 




142201 






399 


901512* 


002100 




2100 






400 


901514* 


000000 











401 


001516' 


146001 




146001 






402 


901520* 


154001 




154001 






403 


901522' 


012000 




12000 






404 


901524* 


170001 




170001 






405 


901526' 


036000 




36000 






406 


901530' 


024000 




24000 






407 


901532' 


162001 




162001 






108 


901534' 


120001 




120001 






409 


901536' 


066000 




66000 






410 


901540' 


074000 




74000 






411 


001542' 


132001 




1 32001 






412 


901544' 


050000 




50000 
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SES 0011 



413 


•01546' 


116001 




tM 


•01550' 


104001 




41S 


•01552' 


•43000 




416 








417 








418 








419 








430 








421 








422 








423 








424 








425 








436 








427 








428 








439 








430 








431 


•01554' 


000000 




432 








433 


•015S6' 


012767 


177777 


434 


•01564' 


012567 


002654 


435 


•01570' 


013567 


002653 


436 


•01574' 


010046 




437 


•01576' 


010146 




438 


001600' 


010246 




439 


•01602' 


005067 


003642 


440 


•01606* 


012700 


003444* 


441 


•01612* 


013501 




442 


•01614' 


016702 


003620 


443 


•01620* 


132021 




444 


•01622* 


001016 




445 


•01624* 


005302 




446 


•01626' 


001374 




447 


•0163U* 


012602 




448 


•01632* 


•13601 




449 


•01634* 


012600 




450 


•01636' 


005067 


176166 


451 


•01642' 


005767 


002602 


452 


•01646' 


001001 




453 


•01650' 


005725 




454 


•01652' 


005067 


177676 


455 


•01656* 


000305 




456 


•01660* 


005267 


002564 


457 


•01664* 


005767 


003556 


458 


•01670* 


100757 




«59 


•01672* 


033767 


002000 


460 


•01700' 


001004 




461 


001702* 


022767 


000004 


462 


•01710' 


003747 




463 


•01712* 


134041 




464 


•01714* 


016767 


002524 


465 


•01722' 


016767 


003520 


466 


•01730' 


016767 


002504 


467 


•01736' 


160267 


176112 


468 


•01742* 


005367 


176106 



116001 
104001 
43000 

;CKH8G - CHECK MSC «LQBAL SUBROUTINE 
}0HL1 CHECKS HsS, HO HEADER MiD NO CRC'S 
»PUT MODULE'S "BECIN" ArTBR JSR CALL 

>POT tOCICAL LINE t HCXT, IF BIT 15 IS SET DATA IS CHECKED 
>BUT NO DATA ERR MSC's ARC TYPED 
;PUT ADDR or MSC TO BE CHECKED NEXT 
;D0 JSR R5<CKM8G«2 

;RETURH8 2 BYTES PAST CALL If ERROR 

.•RETURRO 4 BYTES PAST CALL If NO ERRORS 

>YOU MUST FIRST MAKE SURE LOCATION CKHSC IS ZERO 

IBBFOR JUMPING INTO THIS ROOtIHE BECAUSE IT IS NOT RE-ENTREANT 

;IF IT IS NON ZERO YOU MUST DO BREAKS UNTIL ITS CLEARS 

; 



176130 
176120 
176116 



CKHsGt 





IPLAC 


LOCATION. » TO IF ROUTINE IS NOT IN 








ELSE ■ -1 




MOV 


t*l<CKHSG 


J SET FlAF to busy 




MOV 


(R9}««CKBSG 


(GET module pointer 




MOV 


(R6)«>CKLtllE 


}GET LIME t 




MOV 


R0»><R6) 


;SAVE R0 




MOV 


R1>-(R6) 


; Ri 




NOV 


R3>-(R6) 


; >*3 




CLR 


ERCNT 


;CLEAR ERRCOUNT 




MOV 


tMSG,RO 


}6ET ADDR OF GOOD MSG 




MOV 


(R5}*«R1 


;GET AODR OF HsG 10 BE CK'ED 




MOV 


HSGSIZf R3 


(SET UP COUNTER 


1$I 


CNPB 


(R«)«,(Rl)« 


(COMPARE A BYTE 




BHE 


4t 


}Br if not equal 


Utl 


DEC 


R3 


(ARE HE DONE? 




BNE 


11 


(BR IF NOT 


2$: 


NOV 


(R6)*,R3 


( R3 




NOV 


(R6)«',R1 


I Rl 




MOV 


(R6)t,R0 


; M 




CLR 


ERRCNT 


(CLEAR FOR NEXT CALL 




T8T 


ERCNT 


(ANY ERROR? 




BRE 


3* 


;BR IP SO 




I8T 


<RS)* 


(BUMP RETURN ADDR 


3tt 


CLR 


CKNSC 






RTS 


R5 


(RETURN 


4*1 


INC 


ERCNT 


(UP ERR COUNT 




T8T 


CKLIMC 


(TYPE ERRORS? 




BMI 


34 


(BR IF NOT, EXIT 




BIT 


13000,177570 


(PRINT ALL ERRORS? 




BME 


5f 


(BR IF YES 




CMP 


14, ERCNT 


(HAVE HE DONE 3 ALREADY? 




BLE 


28 


(YES, 60 EXIT 


511 


CHPB 


•(RO},-(Rt) 


(SET POINTERS BACK 




MOV 


CK0E6.ACSR 


(GET MODULES NAME 




HOV 


CKLIRCrCSRA 






MOV 


NS68IE,HA8ADR 


(TOTAL NUMBER OF CHARACTERS. 




SUB 


R3,NASADR 


(HAKE IT WHICH CHARACTER IN MESSAGE. 




IMC 


NASkDR 


(MAKE IT START HITH A ONE. 
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469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
401 
4P2 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
50^ 
501 
502 
503 
504 
505 
506 
507 
508 
509 
5H) 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



•01746* 
•01752' 
•01756' 
•01762' 
W1766' 
•01772' 
081776' 
•02002' 
•02006' 
•02012' 



112067 
112167 
010067 
010167 
010267 
010367 
910467 
010567 
010667 
017767 



032020' 043767 



•02026' 184405 



•02032' 
•02040' 
•02044' 
•02050' 
•02054* 
•02060' 
•02064' 
•02070' 



052767 
016706 
016705 
016704 
016703 
016702 
016701 
016700 



•02100' 
•02102' 
•02104* 
•02106' 
•02110' 
•02113' 
•02114' 



000000 
000000 

000000 

000000 



000000 
000000 



•02116' 
•02122' 
•02134' 
•02126' 
•02132' 
002134' 
•021 36' 
•02140' 
•02142' 
002144' 
002146' 



005767 
001401 
000205 
010567 
01 1605 
010046 
010146 
01024b 
010346 
010446 
005067 



176104 
176102 
000116 
000114 
000112 
000110 
000106 
000104 
000102 
003436 

030000 

000000* 

030000 
000050 
000042 
000034 
000036 
000030 
000012 
000004 



•02074' 000167 177534 



176042 

00133(1 



R0SAVI 
RlSAVt 
R2SAVI 
R3SAVI 
R4SAVI 
R58AVI 
R6SAVI 

t 



MOVB 


(RO)+,ASB 




HOVB 


(Rl)t,AHAS 




HOV 


ROrROSAV 


(SAVE R0 


MOV 


R1,R1SAV 


JRI 


HOV 


R2,R2SAV 


(R2 


MOV 


R3,R3SAV 




MOV 


R4,R4SAV 




MOV 


R5,R5SAV 




MOV 


R6,R6SAV 




MOV 


•CKBCG, BEGIN 


(MAKE FIRST THO LETTERS OF ERR CALL MATC 






(CALLING MODULE'S 


BIC 


1030000, STAT 


(WAKE THIS MODULE UP FOR CALL 


DATER8 


BEGIN 


(DATA ERROR Ul 


BIS 


1030000, STAT 


(PUT It BACK TO SLEEP 


HOV 


R6SAV,R6 




MOV 


R5SAV,R5 




NOV 


R48AV,R4 




HOV 


R3SAV,R3 




HOV 


R2S*V,R2 


(RESTORE R3 


MOV 


RISAV.Rl 


JRI 


MOV 


R0SAV,R0 


(R0 


JMP 


It* 


(GO CHECK SOME MORE 





(SAVE 


PLACE FOR REGISTERS 



THIS ROUTINE MAY BE CALLED BY NET MODULES DURING 
START-UP TO INITIALIZE THE HALF/FULL DUPLEX AND 
MULTI-DROP INFORMATION IN THE PHYTAB TABLE AND 
SET UP MULTI-DROP STATION ADDRESSES (IF REQUIRED). 

CALL) HOV IBEGIN.RS 

JSR R5,DEVSET 
NOTEl DEVSET SET MUST BE DEFINED AS A GLOBAL AND ALL 

REGISTERS ARE PRESERVED. 



TST 
BEQ 
RTS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLK 



TFLAG 

1$ 

R5 

R5,RET 

(SP),R5 

R0,-(SP) 

R1,-(SP) 

R2,-(SP) 

P3,-CSP) 

R4,-(SP) 

DFLAG 



jlS THIS ROUTINE INHIBITED? 

JBR IF NOT. 

(RETURN IMMEDIATELY. 

(SAVE THE RETURN ADDRESS. 

(GET THE ARGUMENT. 

;SAVE ALL REGISTERS. 



;FL*G TO CONTROL FLOi. - SEE BELOW. 
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PACE 12 



SEQ 0013 



525 


992152* 


005067 


001212 


536 


942156* 


01 7767 


009000G 


527 


902164' 


005077 


000000G 


52s 








529 








53a 








531 


903170 


91 1567 


001314 


532 


9i82i7 4* 


0! 6567 


000002 


533 


902203* 


004567 


176756 


534 


90K06* 


093374* 




535 








536 








537 








538 








539 








540 








541 


• 

90231P 


004567 


1 76750 


542 


90221 4' 


095233 ' 




543 


902216* 


005767 


001 144 


544 


902222 ' 


001004 




545 


902224* 


004567 


176734 


546 


902230* 


005276' 




547 


9022 32 ' 


900403 




548 


902234' 


904567 


176734 


5 49 


902240' 


00531 4 * 




550 


902242 * 


004567 


176716 


55 1 


902246 ' 


905331 ' 




552 


902250 


91 6500 


0000 1 4 








Ovvvl 


554 


902260 


005001 










0030&rr 




0022 70 


032700 


000001 


557 


902274 


00 1007 








0DO £W 








00620 3 














-.1. ' 




0000«0 


562 


002 310 






563 


002 312 


000766 










00001 


565 


002320 


001003 






C02 3 52 ' 


' ! ^ • 


fl0IACI6 1 


567 


002330 


01 0102 




566 


902 3 32' 


042702 


000010 


569 


002336* 


062702 


000060 


570 


902342' 


1 1 0267 


00301 4 










572 


r»02352' 


005353' 




573 


002354' 


1 05777 


000000G 


574 


90236<"' 


100375 




575 


002362' 


1 1770i 


000000G 


576 


002366-' 


042702 


177600 


577 


902372' 


1 10267 


002040 


578 


002376' 


H04567 


176562 


579 


092402' 


004436* 




580 


002404* 


010267 


000754 



CLR 
MOV 
CUR 



HFLAG 

•TKS« TKSSAV 
•TKS 



iFLAG TO INSURE ONE MD MASTER ONLY, 
I SAVE THE TTI STATUS. 
{NO INTERRUPTS PLEASE. 



DSETli 



HTYPI 
CTYPi 



DSET3: 
0SET3I 



DSET4I 



JFIRST TWO CHARACTERS. 
•SECOND TMO CHARACTERS: 
;TYPE IT. 



TYPE MODULE RAMF. 

NOV (R5)»NA**EH 
MOV 3(e9},NAREM»2 
J8R RS.TYPE 
NAMEMG 

REQUEST HALF/FULL DOPLEX INFORMATION, (IF OFUG « 0) 
REQUEST HULTI>DROP INFORMATION. (IF DFLAG ■ 1) 
NOTEj IF •9' IS TWO, THE SUBROUTINE IS IMMEDIATELY 
TERMINATED. 



JSR 

SETMl 

TSI 

BNE 

JSR 

SeTM2 

BR 

JSR 

SKTM3 

JSR 

SETN4 

MOV 

NOV 

CLR_ 

BIT 

BHE 

A8R 

ASK 

INC 

CMP 

BEO 

BR 

CMP 

BNE 

MOVB 

MOV 

BIC 

ADD 

MOVB 

JSR 

SETHS 

TSTB 

BPL 

MOVB 

BIC 

MOVB 

JSR 

OOTPUT 
MOV 



RSfTYPE 

DFLAG 

MtYP 

RS,TYPE 

CTTP 
RSfTYPE 

R5,TTPE 

14(itSl,R0 
16(RS)«R3 
Rl 

iDS»SE7"D 
llfM 
D8Ct4 
R0 

R3 
Rl 

tlt.,Rl 

DEXT 

D8CT2 

«19«Rl 

3t 

SSijSETMS 

R1.R3 

119. R2 

t«9.R3 

R3«SETM64^1 

RSfTYPE 

»TKS 
4t 

#TKB«R2 
il77600«R3 
R2» OUTPUT 
R5,TYPE 

R3.FCHAR 



J MULTI-DROP PASS? 
^BRANCH IF YES. 
jTYPE "HALF DUPLEX" 

{CONTINUE. 

jTYPE "MULTI-DROP" 



GET DVIOl. 

GET SRI IN CASE DOING MULTI-DROP. 

INIT TO LINE ZERO. 

IBIT TYPE OUT. 

THIS LINE TO BE TESTED? 

BR IF YES. 

HOVE ONTO NEXT LINE. 

LINE NO. M LINE NO, 4 1. 
DONE ALL SIXTEEN? 
BR IF YES. 
CHECK THIS LINE. 
AT LINE TEN(OCTAL)? 
BR IF YES. 

NOW DOING LINES WITH TWO DIGIT NOS, 
LINE NO. 

ISOLATE LOW ORDER DIGIT. 

MAKE IT ASCII. 

POT IT INTO THE BUFFER. 

ASK THE OPERATOR ABOUT THIS LINE. 

CHARACTER? 
MAIT FOR IT. 
GET IT. 
ISOLATE IT. 
ECHO IT. 



ISAVE IT. 
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581 


002410' 


022702 


000015 






CMP 


«15,R2 


582 


002414' 


001433 








BEQ 


6« 


5B3 


002416' 


105777 


000000G 




5St 


TSTB 


HTKS 


584 


002422' 


100375 








BPL 


St 


585 


002424' 


117702 


000000G 






MOVB 


0TKB.R2 


586 


902430' 


043702 


177600 






BIC 


1177600. R3 


587 


002434' 


1 10267 


001776 






MOVB 


R3.0UTPUT 


588 


002440' 


004567 


176520 






JSR 


R5,TYPE 


589 


003444' 


004436* 








OOTPUT 




590 


902446* 


122702 


000015 






CHPB 


>1S>R3 


591 


•02452' 


001404 








BEO 


6t 


592 


902454' 


122702 


000177 






CHPB 


1177, R2 


593 


902460' 


001356 








BNE 


5t 


594 


002462' 


000734 








BR 


4t 


595 


002464' 


112767 


000012 


001744 


6$l 


MOVB 


t 12. OUTPUT 


596 


002472' 


004567 


176466 






JSR 


RS.TYPE 


597 


902476' 


004436' 








OUTPUT 




598 


902500' 


010502 








MOV 


R5,R2 


599 


902502' 


060102 








ADD 


R1.R3 


600 


003504' 


005767 


000656 






TST 


DFLAG 


60! 


902510' 


gt01402 








SCO 


7t 


602 


902512' 


000167 


000102 






JMP 


MDROP 


603 


902516' 


022767 


000131 


000640 


7$l 


CMP 


IISI.FCHAR 


604 


902524' 


001004 








BNE 


Bt 


605 


902526' 


152762 


000100 


000212 




BISB 


tl00«212(R3) 


606 


902534' 


900660 








BR 


OSETS 


607 


902536' 


022767 


000100 


000620 


8St 


CMP 


f 10O,FCHAR 


608 


002544' 


001404 








BEQ 


DEXT 


609 


002546' 


143762 


000100 


000212 




BICB 


I100.312CR3) 


610 


902554' 


000650 








BR 


DftCT3 


Ml 


902556* 


00S767 


000604 




DEXT: 


TST 


DFLAG 


612 


902562' 


P01003 








BNE , 


It 


613 


902564' 


005267 


000576 






INC 


DFLAG 


614 


902570' 


000607 








BR 


DSETl 


615 


902572* 


016777 


176474 


000000G 


It: 


MOV 


TKSSAV.OTKS 


616 


902600* 


016705 


000556 






MOV 


RET,R5 


617 


902604' 


012604 








NOV 


(SP)t,R4 


618 


902606* 


012603 








MOV 


(SP}«,R3 


619 


902610* 


012602 








MOV 


(SP}+,R2 


620 


003612* 


013601 








MOV 


(SPj^.Rl 


621 


902614' 


012600 








MOV 


(SP)+,R0 


622 


002616' 


000295 








RTS 


R5 


623 


902620' 


022767 


000131 


000536 


MPROP: 


CMP 


IISI.FCHAR 


624 


102626' 


001410 








BEQ 


It 


625 


902630' 


122767 


000100 


000526 




CMPB 


tlOO.FCHAR 


626 


902636' 


001747 








BEO 


DEXT 


627 


902640' 


142762 


000020 


000212 




BICB 


•30,312(R2) 


628 


903646' 


000613 








BR 


DSET3 


629 


902650' 


152762 


000030 


000712 


It: 


BISB 


(20.213(R3} 


630 


902656' 


033703 


000001 






BIT 


tl.R3 


631 


902662* 


001450 








BEO 


MD8LAV 


632 


902664* 


005767 


000500 






TST 


MFLAG 


633 


i»0267i»* 


001064 








BNE 


SECMAS 


634 


902672' 


005267 


000472 






IMC 


MFLAG 


635 


902676* 


910502 








MOV 


R5.R2 


& 1.^ 




III ft^&7 








MOV 


tl« .T.TW 



^CARRIAGE RETURN? 
>BR IF IT IS, 

;WAIT FOR CARRIAGE RETURN, 

;GET IT. 
{ISOLATE IT. 
jECHO IT. 

(CARRIAGE RETURN? 
;:BR IF YES. 
JRUBOUT? 
;BR IF NOT. 
{RESTART. 

;TYPE A LINE FEED. 



;TOP OF MODULE. 

{OFFSET lO LINE ENTRY. 

{DOING MULTI-DROP? 

{BR IF NOT. 

{HANDLE MULTI-DROP. 

{FIRST CHARACTER A "Y*? 

{BR IF NOT. 

{FULL DUPLEX. 

{CONTINUE CHECKING. 

{IS IT AN *•'? 

{BR IF YES. 

{HALF DUPLEX. 

{CONTINUE. 

{DONE HULTI-DPOP? 

;BR IF YES. 

{SET FOR MULTI-DROP. 

{DO IT. 

{RESTORE TTY STATUS. 
{RETURN ADDRESS BACK IN R5. 
{RESTORE REGISTERS. 



{MAS ANStaER YES? 

{BR IF NOT, 

{IS IT A "•"? 

{BR IF YES, 

{CLEAR THE FLAG. 

{CONTINUE. 

{SET THE FLAG. 

;IS THIS LINE MASTER? 

{BR IF NOT. 

{ALREADY HAD A MASTER LINE? 
{BR IF YES. 

{DON*T ALLOh ANOTHER MASTER, 
{BASE ADDRESS OF MODULE. 
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SEQ 0015 



637 


•02704' 


062767 


000331 


000460 


ADD 


1331, LIM 


;END OF MDMTAB. 


638 


002712' 


062702 


000312 




ADD 


1313, R3 


IBASE or ADDRESS MENU TABLE. 


639 


•02716' 


•04567 


176242 




JSR 


RSfTYPE 


|ASK OPERATOR FOR ADDRESSES. 


640 


•03722' 


•05376' 






SCTMB 






641 


•02724' 


•04767 


000132 


2tl 


JSR 


PCROCT 


;GET RESPONSE. 


643 


•02730' 


•22767 


000055 


000346 


CMP 


lSS,C0UEUE-2 


fWAS IT MINUST 


643 


•027 36' 


•01415 






BEO 


3* 


iBR IF YES. 


644 


•02740* 


010167 


000420 




MOV 


K1,FCHAR 


;HOLO Rl TEMPORARILY. 


645 


•0274 4' 


004767 


00035(4 




JSR 


PCASCOCT 


{CONVERT STRING TO OCTAL NO. 


646 


•02750* 


110112 






HOVB 


R1,CR3) 


;SAVE IT IN THE MENU TABLE. 


647 


••2752' 


016701 


000406 




MOV 


rCHAR,R1 


{RESTORE Rl. 


648 


•02756* 


005302 






INC 


R3 


jPOINT TO NEXT BYTE. 


649 


•02760' 


020267 


000406 




CMP 


R3,I.IM 


;FULL TABLE? 


650 


•02764' 


001357 






BNE 


31 


;BR ir NOT. 


651 


•02766' 


000161 


177304 




JNP 


DSCT3 


{GO ON TO NEXT LINE, 


652 


•02772' 


U2762 


000377 


000313 311 


HOVB 


t377,3i2{R3) 


rSHOM END or TABLE ENTRIES. 


653 


•03000' 


000167 


177272 




JMP 


DSCT3 


{CONTINUE. 


654 


•03004' 


004567 


176154 


MDSLAVt 


JSR 


R5,TTPE 


{ASK FOR SLAVE STATION ADDRESS, 


655 


•03010' 


005365' 






SETM7 






656 


•03012' 


004767 


000044 




JSR 


pc;roct 


{READ IT, 


657 


•03016' 


010167 


000343 




MOV 


R1,FCHAR 


{HOLD ONTO Rl, 


658 


•03022' 


004767 


000372 




JSR 


PCASCOCT 


{CONVERT RESPONSE TO OCTAL. 


659 


•03026' 


110162 


000272 




HOVB 


R1,372(R3) 


{SAVE IT. 


660 


003032' 


016701 


000326 




HOV 


FCHAR,R1 


{RESTORE Rl. 


661 


•03036' 


000167 


177234 




JMP 


DSET3 


{CONTINUE, 


662 


•03042' 


004567 


176116 


SECHkSS 


JSR 


RS.TYPE 


{HAVE OPERATOR CORRECT PROBLEM 


66 3 


•03046 ' 


005 42 1 






8MMSG 




{OF TWO MULTlwDROP MASTERS. 


664 


•03050' 


016777 


176216 


000000G 


HOV 


TKSSAV,0TKS 


{RESTORE TTY STATUS, 


665 


•03056' 


i»»0777 




is: 


BR 






666 


•0306k7' 


000776 






BR 


i« 


{WAIT rOR -c. 


667 








1 








668 








• 


READ 


ASCII STRING or 


OCTAL DIGITS TERMINATED BY 


669 










A CARRIAGE RETURN. 


RUBOUTS AMD *U ARE RECOGNIZED, 


670 
671 


003062' 


012704 


003306' 


; 

roctj 


MOV 


IC0UEUE,r4 


{INIT THE QUEUE, 


672 


003066' 


010046 






HOV 


R0,-(SP) 


{SAVE CALLER'S R0, 


673 


•03070' 


105777 


000000G 


iss 


T8TB 


*TKS 


{CHARACTER READY? 


674 


003074' 


100375 






BPL 


It 


{IF NOT, WAIT FOR IT. 


675 


003076' 


117700 


000000G 




HOVB 


»TKB,R« 


{GET THE CHARACTER. 


676 


•03102' 


042700 


177600 




BIC 


I1776««,R0 


{STRIP II. 


677 


•03106' 


023700 


000055 




CHP 


iSS.RO 


{MINUS SIGN? 


678 


•03112' 


001431 






BCQ 


31* 


|BR IF YES. 


679 


•03114' 


033700 


000015 




CHP 


115, Ra 


{IS IT A CR7 


680 


•03120' 


001426 






BEO 


31* 


{BR IF YES. 


681 


t>03122' 


023700 


000177 




CHP 


1177, R0 


{RUB0UT7 


682 


•03126' 


001004 






BHE 


2* 


{BR IF NOT. 


683 


003130' 


1 134t>7 


001302 




HOVB 


tR4 3 +, OUTPUT 


{GET LAST CHARACTER. 


684 


003134' 


105724 






TSTB 


(R4)* 


{FIX POIHTER. 


685 


003136' 


000422 






BR 


4t 


{GO ECHO IT. 


686 


•03140' 


032700 


000025 


Ztt 


CHP 


t3S,R0 


U"7 


687 


•03144' 


001006 






BHC 


31 


{BR IF NOT. 


688 


•03146' 


004567 


176012 




JSR 


R5,TTPE 


{FORCE A CR-LF, 


689 


•03152' 


004472* 






CRLr 






690 


•03154' 


012704 


003306* 




HOV 


tCQUeilE,R4 


{START WITH A FRESH QUEUE, 


691 


•0316id' 


000743 






BR 


It 


{RESTART THIS ROUTINE, 


692 


•03162' 


022700 


000060 


331 


CHP 


t6e,R0 


{MUST BE BETWEEN 60 AND 67. 
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693 


003166' 


003024 




694 


003170' 


022700 


000067 


695 


•03174' 


003431 




696 


•03176* 


010044 




697 


•03200' 


1 10067 


001232 


698 


•03204' 


004567 


175754 


699 


•03310' 


004436' 




700 


003212' 


•73700 


000015 


701 


003216* 


001324 




702 


•03220' 


112767 


000012 


703 


•03226' 


004567 


175732 


704 


003333' 


004436' 




705 


•H3214' 


012600 




706 


•03336* 


000207 




707 


•03240' 


11 0067 


001 172 


708 


003244* 


004567 


175714 


709 


•03250* 


004436' 




710 


•03253* 


004567 


175706 


711 


•0 3256* 


003310' 




712 


003260' 


012704 


003306 


713 


•03264' 


000701 




714 








715 


•03266' 


000010 




716 


•03306' 






717 


•03306* 


000000 




718 


•03310' 


005015 


047516 


719 


•03316' 


000012 




720 








721 








722 








723 








724 








725 








725 








727 








728 








729 


•03320' 


005724 




730 


•03322' 


005714 




731 


•03324' 


001414 




732 


•03326' 


012446 




733 








734 


003330' 


162716 


000060 


735 


•03334' 


004767 


177762 


736 


•03340' 


006301 




737 


•03342' 


006301 




738 


003344' 


006301 




739 


•03346' 


062601 




140 


•03350' 


042701 


100003 


741 


•03354' 


000307 




742 


•03356' 


305001 




743 


•03360' 


000207 




744 








745 








7 46 


•03362' 


000000 




747 


003364' 


080000 




748 


•03366' 


^e(<«0d 





001210 



006441 TERRMt 



BGT 


5t 


{(OCTAL DIGIT). 


CMP 


167, R0 


{ERROR IF NOT, 


BLT 


5t 




NOV 


R0,-(R4) 


{CHARACTER TO QUEUE, 


HOVB 


R0, OUTPUT 


{ECHO IT. 


JSR 


R5,TYPE 




OUTPUT 






CHP 


tl5,R0 


{WAS IT A LINE FEED? 


BNE 


It 


{BR IF NOT, 


HOVB 


112, OUTPUT 


{SET UP TO TYPE... 


JSR 


R5,TYPE 


{,..A LINE FEED. 


OUTPUT 






HOV 


(SP)t,R0 


{RESTORE R0. 


RTS 


PC 


{RETURN TO CALLER. 


HOVB 


R0, OUTPUT 


{CHARACTER IN ERROR. 


JSR 


R5,TYPE 


{ECHO IT, 


OUTPUT 






JSR 


RSfTYPE 


{WARN OPERATOR. 


TERRH 






HOV 


fCQUEUE,R4 


(TRY AGAIN WITH A FRESH 


BR 


It 




.BLKW 


10 


{INPUT QUEUE. 





.ASCIZ 



.EVEN 



<15><12>'M0J •«15><12> 



CONVERT ASCII STRING TO OCTAL. 

CHARACTERS IN COUEUE, TERMINATED BY CARRIAGE RETURN. 
NOTEt ONLY THE LAST FIVE DIGITS OF A STRING ARE VALID, 
CALL: JSR PCASCOCT 

OCTAL RETURNED IN Rl 

CONTENTS OF Rl AND R4 ARE LOST. 



5C0CTI 1ST 
SCOll TST 
BEQ 
HOV 

SUB 
JSR 
ASL 
ASL 
ASL 
ADD 
BIC 
RTS 

EXIT: CLR 
RTS 



PETJ 

FCHARt 

(5FL*Gj 



(R4}f 

(R4) 

AEXIT 

(R4)+,-(SP) 

•60, (SP) 

PC,ASC01 

Rl 

Rl 

Rl 

(SP)+,R1 
1100000, Rl 

PC 
Rl 

PC 



{BYPASS THE CARRIAGE RETURN. 
{AT TOP OF INPUT STACK? 
{BR IF YES. 

{CHARACTER (DIGIT) TO STACK. 

{TWO STACKS ■ ONE QUEUE! 

{STRIP TO OCTAL. 

{RECURSE. 

{MOVE WORD OVER 



{ADD NEXT DIGIT. 
{NO SIGN ALLOWED, 
{RETURN. 

{ALL DIGITS READ. 

{TAKE THE CHARACTERS FROM THE 

{QUEUE »ND RETURN WITH THE OCTAL NO, 

{RETURN ADDRESS HELD HERE. 
{OPERATOR RESPONSE HELD HERK. 
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749 


M3370' 


000000 






NrLAGt 




750 


003372' 


000000 






LIHl 




751 


003374' 


00S015 


042516 


020124 


NAHEHGl .ASCII 


<15><12>'NET HOD: ' 


752 


•03402' 


047515 


035104 


020040 






753 


•03410' 


047116 


047116 


005015 


NAMEtt: .ASCIZ 


*NNHN*<15><13> tHODULE NAME STORED HERE: 


754 


•03416* 


000 










755 




093420' 






.EVEN 




756 










} 




757 
758 










fC0N5T*MTS AND 


STORAGE LOCATIONS 


759 


•03420' 


000000 






; 

TIME: .WORD 


JHOLDS POINTE TO SYSTEM TIME 


16\» 










;THE FOLLOHING 


10 BYTES WILL DEFAULT TO 10 SYNC CHAR'S> 036 


761 










: THESE ARE USED 


BY SOME DECNET MODULE'S TRANSMIT ROUTINE 


762 










; THESE LOCATIONS HAY BE OVERHRITTEN WITH A HEM SYNC CHAR IF 


763 










;SONE USER SPECIFICS A NON STO SYNC, IF HE DOES HE HUST CHANGE 


764 










;THE SYNC FOR ALL DECNET MODULES THAI USE THIS SYNC HEADER. 


765 










; THESE WOULD BE 


THE NQAf HHA, 777 MODULES 


766 


•03422' 


013026 






.WORD 


013036 


767 


•03424' 


013026 






.WORD 


013036 


768 


003426' 


013026 






.WORD 


013036 


769 


•03430' 


013026 






.WORD 


013036 


77k» 


003432' 


013026 






.WORD 


013036 


771 


•03434' 


220 






HSCHEDt .BYTE 


320 jDLEf MEANS OFF*LINC MSG 


772 


•03435 ' 


000 






COUNT: .BYTE 


;COUNT AND FLAGS 


773 


•03436' 


000 






.BYTE 


> 


774 


•03437' 


000 






.BYTE 


;FILL 


775 


•03440' 


000 






.BYTE 


;FILL 


776 


003441 ' 


001 






.BYTE 


1 (ADDRESS 


777 


•03442' 


000000 






CRCHEDt .WORD 


; HEADER CRC 


778 


003444' 


024 






MSG: .BYTE 


24 ;0SOP PROTOCOL CODE FOR "LOOP BACK" 


779 


•03445' 


015 


042412 


051122 


IMSG: .ASCII 


<15><13>'ERR0R CODES FOR NET MODULES { ASTAT) : '<15><12> 




SS3452' 












761 


•03460' 


051505 


043040 


051 1 1 7 






7B2 


•03466' 


047043 


053105 


046440 






783 


•03474' 


042117 


046125 


051 505 






7S4 


•03502' 


024040 


051501 


040524 






785 


003510' 


024524 


006472 


012 






786 


•03515' 


060 


030460 


054060 


.ASCII 


'e0ieXX REC TIME OUT'<15><12> 


787 


•03522' 


9?0130 


020040 


004440 






788 


•0353fl' 


042522 


020103 


044524 






789 


•03536' 


042515 


047440 


052125 






79U 


003544' 


005015 










791 


•03546' 


030060 


030062 




.ASCII 


'3329XX TST CLOCK L0SE*<l5><J 2> 


792 


•03554' 


020040 


020040 


05301 1 






793 


•03562' 


052115 


041440 


04751 4 






794 


•03570' 


045503 


046040 


051517 






795 


•03576' 


006523 


012 








796 


•03601 ' 


060 


031460 


054060 


.ASCII 


*003aXX HEADER CRC ERR0R'<15><12> 


797 


•03606' 


020130 


020040 


004440 






798 


•03614' 


042510 


043101 








799 


•03622' 


041440 


041522 


043440 






800 


•0363k)' 


051122 


051117 


005015 






B01 


•03636' 


030060 


030064 


0S4130 


.ASCII 


'004flXX MSG CRC ERROR'<15><12> 


802 


•03644' 


020040 


020040 


046411 






803 


003652' 


043523 


041440 


041522 






804 


•03660' 


042440 


051122 


051117 







NIAB DEC/XU SYSTEM EXERCISER MODULE 



NlAB.Pll 13-JAN.77 1 


16:51 




805 


•03666' 


005015 






8^6 


003670' 


030060 


030065 


054130 


807 


003676' 


020040 


020040 


052011 


808 


•03704' 


052115 


052040 


046511 


809 


•03712' 


020105 


052517 


006524 


81k» 


•03720' 


012 






811 


003721 ' 


060 


033060 


054060 


812 


•03726' 


020130 


020040 


004440 


813 


003734' 


046524 


030134 


047516 


814 


•03742' 


026516 


054105 


051511 


815 


•03750' 


027124 


046440 


046505 


816 


•03756' 


005015 






817 


•03760' 


030060 


030067 


054130 


818 


•03766' 


020040 


030040 


053011 


819 


•03774' 


052115 


046040 


053101 


820 


•04002' 


047105 


054503 


005015 


821 


•04010' 


030460 


030060 


054130 


822 


•04016' 


020040 


030040 


051011 


823 


•04024' 


041505 


050040 


051101 


824 


•04032* 


0521U 


030131 


051105 


825 


•04040' 


047522 


006522 


012 


836 


•04045' 


060 


030461 


054060 


827 


•04052' 


020130 


020040 


004440 


828 


•04060' 


042522 


030103 


047516 


829 


004066' 


026516 


054105 


05151 1 


830 


•04074' 


027124 


046440 


046505 


831 


•04102' 


005015 






832 


•04104' 


030460 


030063 


054130 


833 


•04112' 


020040 


030040 


051011 


834 


•04120' 


041505 


041440 


047514 


835 


•04126' 


045503 


046040 


051517 


836 


•04134' 


•06523 


013 




837 


•04137* 


060 


030063 


054060 


838 


•04144' 


020130 


030040 


004440 


839 


•04152' 


042522 


020103 


051106 


840 


•04160' 


046501 


047111 


030107 


841 


•04166' 


051105 


047522 


006522 


842 


•04174* 


012 






843 


•04175' 


060 


030064 


05406(( 


844 


•04202' 


k'20130 


020040 


004440 


845 


•04210' 


042523 


030103 


053117 


846 


•04216' 


05 1 1 05 


052522 


020116 


847 


•04224' 


051117 


046040 


052101 


848 


•04232' 


C47105 


054503 


005015 


849 


•04240* 


000 






850 


•04241 ' 


116 


020117 


054523 


851 


•04246' 


052123 


046505 


041440 


852 


•04254' 


047514 


045503 


020054 


853 


•04262* 


046120 


040505 


043523 


854 


•04370* 


051040 


041505 


047117 


855 


•04276* 


»^44506 


052507 


042522 


856 


•04304* 


020054 


043520 


020115 


857 


•04312* 


»44527 


046114 


044040 


858 


004320* 


04611*1 


000124 




859 




C04434' 






860 


004434* 


000 
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.ASCII '0050XX TMT TIME 0UT'<15><13> 



.ASCII '0060XX TMT NON-EXIST. MEH'<15><13> 



.ASCII '0070XX TMT LATENCY'<15><12> 



.ASCII '0100XX REC PARITY ERR0R'<15><13> 



.ASCII 'OSiaXX REC MON-EXIST. HEH'<15><i2> 



.ASCII •012OXX REC CLOCK L0SS*<15><12> 



.ASCII 'BSOOXX REC FRAMING ERR0R*<1S><12> 



.ASCIS '04O0XX REC OVERRUN OR LaTENCY'<15><12> 



NOCLKM: .ASCIZ 'NO SYSTEM CLOCK, PLEASE RECONFIGUREf PGM WILL HALl ' 



.xMSG*504. 
CRCMSG: .SYTt 



;MSG CRC 



NUB DCC/Xtl SY.STFM EXERCISER MODULE 
NIAB.PU 13-JAN.77 16|51 



MAClfU 27(1(986) 02-rEB-77 18104 PAGE 18 



SEU 0019 



861 
862 
863 
864 

86S 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
8B4 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
985 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 



•04435' 

M4436' 
•04440' 
•04442' 
•04444' 
•04446' 
•04450' 



000 

000000 
000765 
000000 
000000 
000000 
000000 



•04452' 
•04454' 

•04456' 
•04460' 
•04462' 
•04464' 

004466' 



001016' 
001010' 
000622' 
000520* 
000524' 
000532' 
•00556* 



•04470' 000000 



•04472* 
•04475' 
•04502' 
•04510' 
•04516' 
•04524' 
•045 32' 
•04540' 
•04544' 
•04552* 
•04560* 
•04566* 
004574* 
•04602* 
•04610' 
•04616* 
•04624' 
•04630* 
•04636* 
•04644* 
•04652' 
004660' 
•04666' 
•04674* 
•04700' 
004706* 
•04714* 
•04722' 
•04730' 
•04735' 
•04742' 
•04750' 
•04756' 



005015 
015 
041505 
053524 
042524 
051505 
•47440 
•27116 
030050 
820122 
047506 
050114 
005015 
0*2520 
051117 
020123 
J47117 
020040 
020040 
042523 
044526 
042515 
•20105 
•47U7 
020040 
020040 
040524 
070104 
043501 
040 
020040 
051525 
051505 



000 
051412 
020124 
051117 
052123 
040523 
052120 
005015 
033055 
044042 
020122 
03S051 
020040 
020040 
0S2040 
050117 
005015 
020040 
020040 
050040 
052517 
051523 
050117 
•05015 
020040 
020040 
042116 
042515 
006S05 
020040 
020040 
051105 
040523 



046105 
042516 
020113 
046440 
042507 
047511 

047440 
020042 
042510 
000040 
054524 
043040 
044510 
044524 

020060 
052440 
042522 
020123 
043501 
044524 

020061 
051440 
051101 
051523 
012 
031040 
020040 
046440 
042507 



.BYTC 
.EVEN 
.MOhD 
501 . 
.WORD 
.MORO 
.HORD 
.HORD 



;ONE WORD CHAR BOfER FOR TTY OUT 
iClOBALf SIZE or DATA MSG (NO HEADER) 

iHETWOBK MODULES WAIT FOR THIS TO BE 
iTHP STORAGE FOR POINTER TO CALLING MODULE 
;TMP STORAGE FOR LOGICAL LINE I 
JcOUHTS • OF ERRORS 



OUTPUT! 
MSGSIZl 
WAIT! 
CKBECt 
CKLINEl 
ERCHTi 

jPWRCHTtI .WORD DEFINED IN MONITOR OABL OH AMD IS A GLOBAL - POWER FAIL INDICATOR FOR 
} 



OOISPl 



OPTION DISPATCH TABLE. 



FINISH 

DONE 

USER 

ZEROS 

ONES 

ALTER 

WORST 



;ERROR RECOVERY. 
(STANDARD MESSAGE. 
lUSER DEFINED MESSAGE. 
;ALL ZERO BYTES MESSAGE. 
>ALL ONE BYTES MESSAGE. 
sALTERHATE ONE AND ZERO BITS, 
fWORST CASE MESSAGE. 

jONE TIME TYPE OUT FLAG. 



CRLFJ .ASCIZ <15><12> JCARRIAGE RETURN - LINE FEED. 

GETMC; .ASCII <t5><12>'SELtCT NETWORK TEST MESSAGE OPTION .*< 1 5X1 2> 



.A8CIZ *(0-6 OR "H" FOR HELP)! ' 



HELPMj .ASCII <15><12>' TYPE FOR THIS 0PTI0N*<15><12> 



.ASCII ' USE PREVIOUS MESSAGE 0PTI0N*<15><12> 



STANDARD HCSSAGE*< 15X1 2> 



USER MESSAGE*<15X12> 



NIAB OEC/Xll SYSTEM EXERCISER MODIILR 



MACYll 27(1006) 02-FEB-77 18(04 PACE 19 



NIAB, PI 


13- 


IAN.77 


6j5J 










917 


004764' 


005015 












918 


004766' 


020040 


020040 


020063 




.ASCII 


3 ALL ZEROS HESSAGE'<15><1 2> 


919 


•04774' 


020040 


•2oa4e 


040440 








920 


■05002' 


046114 


055040 


051 105 








921 


•05010' 


051517 


046440 


051505 








922 


•05016' 


840523 


042507 


005015 








923 


005024' 


020040 


020040 


020064 




.ASCII 


4 ALL ONES ME5SAGE'<15><12> 


924 


•05032* 


020040 


020040 


040440 








925 


•05040* 


<>461 14 


047440 


042516 








926 


•05046* 


070123 


042515 


051523 








927 


•05054' 


043501 


006 505 


012 








928 


•05061 ' 


040 


020040 


032440 




.ASCII 


' 5 ALTERNATING 1 AND BITS*<15X12> 


929 


•05066' 


820040 


020040 


020040 








930 


•05074' 


046101 


042524 


047122 








931 


•05102' 


052101 


047111 


020107 








932 


•051 10* 


020061 


047101 


020104 








93) 


•05116' 


P20060 


044502 


051524 








934 


•05124' 


005015 












935 


•05126' 


820040 


020040 


020066 




.ASCIZ 


6 FOUR BIT C0UNT*<15><12> 


936 


•05134' 


020040 


020040 


043040 








937 


•05142' 


052517 


020122 


044502 








938 


•05150* 


420124 


047503 


047125 








939 


•05156* 


006524 


000012 










940 


•05162* 


054524 


042520 


054440 


USERMi 


.ASCIZ 


'TYPE YOUR MESSAGE TERMINATED WITH "8- *< 15X1 2> ' I * 


941 


•05170' 


052517 


020122 


042515 








942 


•05176' 


051523 


043501 


020105 








943 


005204' 


042524 


046S22 


047111 








944 


•05212* 


852101 


•42105 


053440 








945 


•05220* 


052111 


020110 


040042 








946 


•05226' 


006442 


021412 


000 








947 


•05233' 


123 


042520 


044503 


SETHI t 


.ASCIZ 


'SPECIFY IP THE FOLLOWING LINES ARE* 


948 


005240* 


054506 


044440 


020106 








949 


•05246* 


044124 


020105 


047506 








950 


005254' 


0461 14 


053517 


0*7111 








951 


005262' 


£20107 


044514 


042516 








952 


•05270' 


020123 


051101 


000105 








95 3 


•05276' 


843040 


046125 


020114 


SETH2I 


.ASCIZ 


• FULL DUPLEX * 


954 


•05304' 


052504 


046120 


054105 








955 


•35312' 


080040 












956 


•05314' 


046440 


046125 


044524 


SETM3t 


.ASCIZ 


* MULTI-DROP * 


957 


•05322' 


042055 


047522 


02012fl 








958 


B05330' 


000 












959 


•05331 ' 


050 


024531 


047440 


SETM4t 


.ASCIZ 


'(Y) OR NOT(CR).'<15><12> 


960 


•05336' 


020122 


047516 


02412* 








961 


•05344* 


051103 


027051 


005015 








962 


•05352* 


000 












963 


•05353* 


114 


047111 


020105 


SETM5I 


.ASCII 


'LINE •' 


964 


•05360* 


043 












965 


•05 361 ' 


116 


020116 


000 


SETM6: 


.ASCIZ 


•NH * 


966 


•05365' 


101 


042104 


H12522 


SETM7I 


.ASCIZ 


'ADDRESS*' 


967 


•85372' 


051523 


000075 










968 


•05376' 


046123 


053101 


070105 


SETM8! 


.ASCIZ 


'SLAV^: AD0RESSES|'<t5Xt2> 


969 


•05404' 


042101 


051104 


05150S 








97H 


005412' 


042523 


03512) 


005015 








971 


005420' 


000 












972 


005*21' 


("5 5 


052012 


047527 


SMMSG! 


.ASCII 


<15><1 2>'TlilO MULTIDHOP M»STFR LINES N07 »I,LO«FD . ' < 1 5>< 1 2> 



NlAB DEC/XU SYSTEM EXERCISER MODULE MACVU 27(1006) 03-FEB-1T 18104 PAGE 20 
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973 


005426* 


•46440 


046125 


044524 


974 


•05434* 


•51 104 


050117 


046440 


975 


M5442' 


•51501 


042524 


020122 


976 






04251 6 




977 


•05456' 


047516 


020124 


046101 


97t 


•05464' 


047514 


042527 


037104 


979 


•85472* 


•05015 






960 


•05474* 


954524 


042520 


057040 


9s: 


805502* 


£20163 


047101 


020104 


982 


•05510* 


•44506 


020130 


051123 


983 


•05516' 


•27061 


000 




984 




•00001 







lAsciz 'me -c ahd fix sri. 



NIAB DEC/Xll SYSTEM 


EXERCISER MODULE 


MACyil 


27(1006) 


NIAB.PU n-JAN- 


77 16:51 




CROSS 


REFERBNCe 


ACSP 


000052R 


1071 


464» 






ADDP 


•00(*06R 


861 








AFXIT 


B03356R 


731 


742* 






ALTEP 


•00S32R 


207* 


878 






ASB 


•00US6R 


110t 


469* 






ASCOCT 


00332C<R 


645 


658 


729* 




ASCOl 


003322R 


730« 


735 






ASTAT 


•0005 4R 


1091 








AWAS 


•0006tiR 


111* 


470* 






BDCNV M 


»»•••• G 


11 








BEGIN 


000000R 


831 


291 


478* 


482 


BTTa * 


000001 


120* 








BITl » 


•00002 


120t 








BIT10 » 


•02000 


120* 








BITll s 


•04000 


120* 








BIT12 = 


010000 


120* 








BIT13 = 


020000 


1201 








BIT14 » 


040000 


1201 








BIT15 » 


1 00000 


120* 








BIT2 » 


•00004 


120* 








BITS I 


•00010 


120* 








BIT4 = 


•00020 


!20* 








B1T5 s 


•00040 


120* 








BIT6 » 


000100 


1201 








BTT7 « 


•00200 


120* 








BIT8 » 


•00400 


120* 








BXT9 « 


001000 


120* 








BREAKS* 


104407 


120* 








BPl 


00001 2R 


88* 








BR2 


•0001 3R 


89* 








CDATASx 


104414 


120* 








CKBEG 


•04444R 


434* 


464 


478 


866* 


CKLINE 


004446R 


435* 


457 


465 


867* 


CKMSG 


Bai554RG 


122* 


161» 


431* 


433* 


CLOCK M 


•••••• G 


120* 


130 






COUNT 


•03435R 


275* 


276» 


277» 


772* 


COUEOE 


•03306R 


642 


671 


690 


712 


CRC 


•0iZ76KG 


122* 


ZH0 


285 


341* 


CRCHED 


•03442R 


2B2» 


777* 






CPCHSG 


•04434RG 


122* 


210 


220 


287» 


CRCTAB 


P01454R 


357 


362 


384* 




CRLF 


004472R 


269 


689 


8841 




CSRA 


•000S0R 


105* 


465> 






CTYP 


002242R 


547 


550* 






OATCK»« 


104417 


120* 








DATEPSa 


104405 


120* 


482 






DEVSET 


•02116RG 


122* 


514* 






DEXT 


•02556R 


562 


608 


bll* 


626 


DFLAG 


•03366R 


524« 


543 


600 


611 


DONE 


M01010R 


211 


221 


2721 


874 


DSETl 


•027 10R 


541 • 


614 






DSET2 


002270R 


556* 


563 






DSET3 


•02276R 


5581 


606 


bl0 


628 


DSET4 


002314R 


557 


564* 






OVIDl 


•0001 4R 


90* 








ENDPS$» 


104402 


120i 


291 
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613* 748* 



651 653 661 



HUB DEC/Xll SYSTEM EXERCISER MODULE 
NUB. PI! U-JHN-77 I6l5t 



•"ACril 2?(te«6) B2-rEB-77 ItiM PAGE 23 
CROSS REPCRENCe TABLE USER SYMBOLS 



SEQ 0023 



ENDS a 


10440) 


1201 








ercnt 


#0445flR 


439* 


451 


456* 


461 


ERRCNT 


•0003OR 


971 


450* 




ERRNS ■ 


104410 


1201 








ERRORt* 


1 04404 


1 20t 










t 04400 












w J J V 


f * 




607 


623 


FILCMT* 




1 2P* 


308 




flLL 


9005 36R 


203 




208 1 




F I LLERb 






309 






FINISH 


001 0t 6R 


268 


27 it 


871 








164 


8851 






GETMSG 


#003 40R 


1 67 1 








GETPAt 3 












GOPT 


000254R 


1 34 


1 36 


143 


1531 


GWBUFSs 


1 044 1 2 


1 20i 






HELP 


000502R 


1 fl8 


190 


1 951 




HELPM 


004574R 


1 95 


896i 






IHFLAG 


004470R 


153 


159* 


8811 




IMSG 


M344SR 


158 


7791 




INIT 


000022R 


94* 








KHllL B 


*••*•• G 


1201 


133 






KHliP I 


»••••• G 


1201 


1 37 






KHllX s 




1201 


141 






LIM 


M3372R 


636* 


637* 


649 




MAP22Sa 


1 044iS 


120t 








HDROP 


002620R 


602 


623t 






MDSLA V 


003004R 


631 


654V 






MFLAG 


003370R 


525* 


632 






MODNAH 


000000R 


841 








MODSP 


0001 6 4R 


95 


1 18i 






MSG 


003444RG 


1214 


167 


208 


41 » 


MSGHED 


003434RG 


1 2 1 i 


276 


















I4SGSIZ 


004440RG 


1 21 1 


267* 


272* 


914 
* / 3 


MSGSS > 


1 04416 


1 20 i 








MSG$ 3 


1 04406 


1 20i 








MTYP 


002234R 


544 


5481 






NAMEM 


0034 1 0R 


531* 


532* 


7S)t 




NAMEMG 


003374R 


534 


751 1 






NOCtiKH 


004241R 


143 


850* 






OACNV s 




1 1 








00 ISP 


#044S2R 


194 


873t 






ONES 


00tfS24R 


204f 


877 






OPEN « 


000000 


85 


91 


98 


99 






111 


120t 


145 


166 


OUTPUT 


II04436R 


175* 


l76 


183* 


184 






697* 


699 


703* 


704 


pascnt 


000026R 


96i 








PiROt * 


000004 


120> 








POPSP 3 


005726 


1201 








P0PSP23 


022626 


120t 








PPTY » 


0000t<0 


88 


89 


130t 




PRTY0 3 


»000e>) 


1201 








PPTYI 3 


000040 


1201 








PRTY2 » 


000100 


120t 









623 635 «44» 647 657* 660 747» 



384 388 



442 466 



100 

178 

257* 

707* 



101 
18* 
25« 

709 



103 103 

197 237 

577* 579 
863t 



104 105 
260 271 
587* 589 



107 109 
281 286 
595* 597 



110 
(>83* 



NIAB DEC/Xll SYSTEM EXERCISER MODULE 



MACVll 27(ie06> 02>FeB-77 18104 PkCE 34 
USBR SYMBOLS 



NlAB.Pll 13-JAN-77 


16151 




CROSS 1 


RErCRCaCE 


TMLE ' 


PRTY3 3 


0^0 14» 


1201 










PPTY4 3 


000200 


120* 










PRTY5 3 


000240 


120t 










PBTY6 3 


000 30i) 


1201 










PBTY7 3 


•00340 


1201 










PS 3 


177776 


120i 










PSM 3 


177776 


120t 










PUSH 3 


005746 


120« 










PUSH2 3 


024646 


1201 










PWRCNT3 


•••••» G 


1221 










QUEt 3 


104401 


1201 










RFSTBT 


000166R 


112 


130( 








RET 


903362R 


517* 


616 


746t 






ROCT 


003e62R 


bil 


636 


S7iJ 






RSTPT 


•0006 2 R 


1121 










RflSAV 


•02100R 


341* 
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TPX a 0001*00 
TRAPX « 000030 
TYPE 001164RG 



USER 

USERM 

VECTOR 

MAir 

HASADR 

WORST 

XFLAC 

EEROS 



IW0632R 
•05162R 

004442RG 
000054R 
•00SS6R 
000005R 

B05S31R 



120t 

120* 

121* 

545 

708 

235t 

235 

87* 
1211 
10S« 
2171 

•SI 
203* 
172 



144 
548 
710 
• 75 
9401 

273» 
466* 
•79 

S?e 
311 



157 
550 



165 
571 



177 
57« 



1»5 
5^* 



19b 
596 



236 
639 



259 
654 



270 
662 



299* 
688 



533 
698 



541 

703 



i6S( 

4«T» 46(* 



316 665 715* 75S« (59* 



. ABS. 000000 000 
005521 001 



ERRORS DETECTED I 

DEFAULT GIiOBALS GENERATEDi 

NlAB,NlAB/S0L/CRrtSYH>ODXCON,HlAB 
PUN>TIMEt t 2 .2 SECONDS 
RUN-TIME RATIO! 30/4>4.9 
CORE USED! OK (IS PAGES) 
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1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 IDENTIFICATION 

13 ^ 
14 

15 PRODUCT CODEl MAINOEC-1 1 -OXNUA-A-D 

16 

17 PRODUCT NAME: DU-11 DECNET DEC/Xll EXERCISER MODULE 

18 

19 DATEl 21-JUN-76 

20 

21 MAINTAINEP: DEC/Xll DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN, 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL. 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS, 

38 
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1 « ABSTRACT 

THIS TYPE OF DEC/Xll MODULE, REFERRED TO AS DECNET DEC/XU MODULE» 
WILL DETECT SYSTEM INTERACTION ERRORS WHEN RUN IN CONJUNCTION WITH 
OTHER DEC/Xll MODULES EXERCISING OTHER DEVICES ON THE SYSTEM, 
ERRORS ARE REPORTED ON THE SYSTEM CONSOLE AS THEY OCCUR OR AS A 
SUMMARY REPORT, AT THE OPERATORS OPTION, IN ADDITION, THESE 
MODULES MAY BE USED TO VERIFY THE CONDITION OF THE ASSOCIATED 
MODEMS AND COMMUNICATION LINKS, IT WILL ONLY TEST COMMUNICATIONS 
PATHS CAPABLE OF RUNNING DDCMP, THIS MEANS THE DEVICES MUST USE 
NO PARITY/ 8 LEVEL CODE, AND TERMINALS CANNOT BE TESTED, 



NOTE 



THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/XU, 
THE DETAILS OF LINKING, LOADING, AND 
RUNNING MODULES UNDER DEC/Xll CAN BE 
FOUND IN THE DEC/Xll USERS DOCUMENTATION 
AND REFERENCE GUIDE, MAINDEC-1 1 -OXOBA , 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MAINDEC-1 1-DXOBC, WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING, 



2. HARDWARE REQUIREMENTS 



THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE, THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS: 



A, 1 PROCESSOR, 1 COMM. DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES, (MUST RUN FULL DUPLEX) 

B, 1 PROCESSOR, 2 COMM. DEVICES, 2 MODEMS 

C, 2 PROCESSORS, 2 COMM. DEVICES* 2 MODEMS 

UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUT ONLY 2 
LINES ARE KEPT KUNNING SIMULTANEOUSLY, 



3, SOFTWARE REQUIREMENTS 

A, THE DEC/Xll MONITOR MUST BE OABK OR A LATER R|:VISI0N, 

B, THE NIA? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOR* 
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C, ALL NETWORK MODULES MUST BE CONFIGURED NEXT, 

D, THE N2A? MODULE MUST BE CONFIGURED NEXT.* 

E, ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT, EITHER 
KWA?r KWB?, OR KWX? 

r, ANY OTHER DESIRED DEC/Xll MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER, 



4. PRELIMINARY TESTING 



THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE, THEN A DEC/Xll EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/Xll MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN, IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/Xll MAY BE ATTEMPTED. 



5, PROGRAMMING CONSIDERATIONS 



A. OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN NHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/Xll 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/Xll 
MONITORS AND ALL OTHER MODULES. THE ONLY OTHER EXECPTION IS 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE WILL NOW BE 2 
DIFFERENT DEC/Xll MODULES CAPABLE OF BEING RUN, THE OLDER 
MAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYPE REQUIRING A 
COMPLETED COMMUNICATIONS PATH, IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/Xll 
MODULES IN ONE RUN TIME EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE, IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY PE SELECTED FOP THE SAME RUN, 

B. USING THESE DECNET DEC/Xll MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC/Xll 
TOGETHER, ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES, DUE TO DIFFERENT HARDWARE ON EACH SYSTEM, 
RUN TIMES AND END OF PASS TIMES MIGHT VARY CONSIDERABLY, 
THEREFORE IT IS NECCESSARY THAT THESE DECNET DEC/Xll MODULES 
BE EXTREMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS. THIS HOWEVER, MEANS IT SOMETIMES MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING. 



C. DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



♦ THESE ARE DESCRIBED IN THE DECNET DEC/Xll USER'S GUIDE. 
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BUFFERS REQUIRED TO RUN MANY LINES FROM ONE MODULE ALL AT THE 
SAME TIME, TT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME, IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL RUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LPCNT, THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC UP TO THE 8TH PAIR, IT WILL 
THEN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC, THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING UNES TOGETHER SO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE, PLEASE 
READ THE DECNET DEC/X)ll USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS, 

D. THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES. THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED, THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS. 



6. OPERATING PROCEDURES 



A. THE MODULE Is CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
OEC/Xll REFERENCE GUIDE. 

B. CONSOLE SWITCHES ARE STANDARD FOR DEC/Xll 

C. THE NIA? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYPE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY. THE OPTIONS 
INCLUOEt 



ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANNED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 



D, THE N2A? MODULE WILL MAKE ANY AUTOMATIC PHONE CONNECTIONS 
USING ANY ON-U'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS. ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE, 

E, THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE, 

F, THERE ARE MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE: 

(1) LOCATIOW t64 IS A SWITCH WHICH INDICATES WHETHER OR NOT 
ALL ERRORS SHOULD BE REPORTED AS THEY HAPPEN, IF 
LOCATION 164 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 
TOTALLED (ON A LINE BY LINE BASiS) J EVERY N PASSES THIS 
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TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED, THE VALUE OF N IS THE VALUE OF LOCATION 164. 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BE TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VERY GOOD QUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128, 
(LOCATION 166 IS DEFINED NEXT.) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128, IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW. IF THE LINE 
IS OF KNOWN GOOD QUALITY, THIS RESTRICTION HAY BE 
RELAXED, THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS. (LOC 164*0) OF COURSE DEC/XU KEEPS TOTALS FOR 
THE ENTIRE RUN, REGARDLESS. 

(2) LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED. AN ITERATION Is 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER. 
THE DEFAULT VALUE IS 8. 

(3) LOCATION 170 IS A TIME SCALING FACTOR, THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS, THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS, 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR. 
DEFAULT IS 30 SECONDS. 

(4) LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS, SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR VICE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING, IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10. 

(5) LOCATION 174 CONTAINS 2 IDENTICAL BYTES FOR USE AS SYNC 
CHARACTERS. THE DEFAULT IS 113226 WHICH IS 2 BYTES OF 
226. IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER, THIS LOCATION IS A DON'T CARE FOR 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

(6) LOCATION 176 IS AN ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN RECEIVE-ONLY MODE, HE SELECTS THE LINE 
FOR HALF DUPLEX, POlNT-TO-POiNT, SLAVE, (BIT 7s 1, 
BITS 4,5, AND 6 s 0'S IN THE PHYSICAL LINE TABLE, SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 176 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-pOINT, 
SLAVE BY THIS MODULE TO RUN IN RECEIVE ONLY MODE. THIS 
LOCATIOM MAY BE PATCHED BACK TO A 4^)1 TO RESUME NORMAL 
REC-TMT TESTING, 
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(7) LOCATION 200 IS AM ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE* HE SELECTS THE 
LINE FOR HALF DUPLEX, POINT-TO-POINT, MASTER (BITS 7 AND 
5 * I'S, BITS 4 AND 6 s 0'S IN THE PHYSICAL-LINE TABLE, 
SEE ITEM 6-F-9 BELOW.) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240, THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE, THE 
LOCATION MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING. 



G, LOCATIONS DVA, VCT, BrI AND BR2 MUST BE SET tO PROPERLY MATCH 
THE FIRST DEVICE TO BE TESTED BY THIS MODULE. 



7, ERROR REPORTING 



A. ERRORS ARE EITHER TOTALLED AND PRINTED AS SUMMARIES ON A LINE 
BY LINE BASIS, Or THEY ARE PRINTED As THEY OCCUR, SEE 
SECTION 6F1, THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS. 



B, DATA ERRORS ARE ACTUALLY REPORTED BY THE NIA? MODULE BECAUSE 
THIS IS WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED, SO ALL DECNET DEC/Xll MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD DEC/Xll DATA COMPARE ERROR MESSAGE 
EXCEPT: 

(1) THE MODULE NAME TYpED Is FFXX» WHERE FF IS FILLED IN TO 
BE THE NAME OF THE DECNET DEC/Xll MODULE WHICH CALLED 
THE NIA? MODULE TO DO THE COMPARE, IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR,, 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMPARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED, 

(3) ACSR CONTAINS THE ADDRESS OF THE DECNET DEC/Xll MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED. 

(4) SBADr CONTAINS THE LINE • OF THE DEVICF WHICH HAD THE 
DATA ERROR, 

(5) WASADR CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IN THE MESSAGE THIS BAD CHARACTER wAS, 

(6) THE "SHOULD BE AND "WAS" ITEMS ARE NORMAL, 



C. OTHER ERRORS ARE REPORTED USING THE NORMAL ERROR CALL IN 
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319 DEC/Xll CSRA AND ACSR ARE STANDARD. STATC CONTAINS A CODED 

320 

321 

322 ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 

323 DEC/Xll MODITLES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 

324 WHICH LINE HAD THE ERROR THE OTHER DIGITS CONTAIN THIS CODEl 
325 

326 0010XX REC TIME OUT 

327 0020XX TMT CLOCK LOSS 

328 0030XX HEADER CRC ERROR 

329 0040XX MSG CRC ERROR 

330 0050XX TMT TIME OUT 

331 0060XX TMT NON-EXISTENT MEMORY 

332 0070XX TMT LATENCY 

333 0100XX REC DATA PARITY ERROR 

334 0110XX REC NON-EXISTENT MEMORY 

335 0120XX REC CLOCK LOSS 

336 0200XX REC FRAMING ERROR 

337 0400XX REC OVERRUN OR LATENCY ERROR 
338 

339 THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 

340 LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE, THE FIRST 

341 TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE NIA? 

342 MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 

343 CONSOLE FOR THE OPERATORS SUBSEQUENT USE. 
344 

345 

346 D. ALL ERRORS HAVE A RETRY LIMIT (SEE SECTION 6F4) WHICH CAN BE 

347 MODIFIED. 
348 

349 

350 E, ON pOWER.FAILf POWER-UP CONDITIONS^ DECNET DEC/XU MODULES 

351 WILL DROP THEMSELVES, THIS IS DONE BECAUSE THE PHONE 

352 CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 

353 WILL BE REQUIRED. 
354 

355 
356 

357 8, TEST SEQUENCE 

358 

359 LINES ARE TESTED BY PAIRS IN SEQUENTIAL OrDEr, THIS OrDER MAY BE 

360 MODIFIED BY MODIFYING THE pHysICAL LINE TABLE, (SEE DECNET 

361 DEC/Xll USER'R GUIDE). THERE ARE SEVERAL TESTING OPTIONS WITH 

362 SLIGHTLY DIFFERENT FUNCTIONS MAKING UP An ITERATION: 
363 

364 

365 A. POINT-TO-POINT SLAVE. IN THIS CASE THE LINE WAITS TO RECEIVE 

366 A MESSAGE, WHEN IT DOES, IT CHECKS IT, AND THEN TRANSMITS A 

367 MESSAGE BACK. IT WILL REpORT ERRORS ON EXCESSIVE WAITS, 
368 

369 

370 B. POINT-TO-pOINT MASTER. IN THIS CASE THE LINE SENDS A MESSAGE 

371 AND WAITS TO RECEIVE ONE IN RETURN, IT THEN CHECKS THE 

372 RECEIVED MFSSAGE, IF IT TiMES-OUT, IT TRANSMITS AGAIN, IT 

373 WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 

374 MESSAGE IS RECEIVED, OR IT TIMES OUT COUNT EQUALS LOCATION 
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172# THE ERROR TOLERATION LEVEL, (SEE SECTION 6F4). IT WILL 
THEN REPORT AN ERROR AND BEGIN AGAIN, AFTER THE NUMBER OF 



CONSECUTIVE TlME-OUT ERRORS REPORTED EQUALS LOCATION 172» THE 
LINE WILL BE DROPPED. 



C, POINT-TO-POINT SLAVE RECEIVE ONLY, IN THIS MODE THE LINE 
WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 
RECEIVE AGAIN, 



D. POINT-TO-POINT MASTER-TRANSMIT ONLY, IN THIS MODE THE LINE 
JUST TRANSMITS AND THEN TRANSMITS AGAIN ,ETC, 



E, MULTl-DROp MASTER, IN THIS MODE» THE LINE WILL SEND A DDCMp 
MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 
TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 
DATA, 

♦ NOT YET IMPLEMENTED 



F, MULTl-DROp SLAVE, IN THIS MODE, THE LINE WILL WAIT FOR A 
MESSAGE WITH THE MATCHING ADDRESS, THEN IT WILL TRANSMIT A 
MESSAGE, 

• NOT YET IMPLEMENTED 



G, THESE BASIC ITERATIONS ARE REPEATED UP TO THE NUMBER OF TIMES 
IN LOCATION 166, (SEE SECTION 6F2) FOR EACH LINE SELECTED 
FOR TEST* AND THE END-OF-PASS IS DECLARED, 



9, PASS TIMES 



PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT, DIFFERENT BAUD 
RATES, MESSAGE SIZES, AND TESTING MODES ALL GREATLY AFFECT 
THE PASS TIME, BELOW ARE SOME BALL PARK TIMES, BUT ANY ONE 
SYSTEM COULD VARY TREMENDOUSLY FROM THEsE: 

-RUNNING ALONE, 1 LINE ON AN 11/05 AT 9600 BAUD, HALF DUPLEX» 
POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 
SECONDS, 



NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 
WHEN 2 LINES ARE RUNNING, A MONITOR CALL CAN BE MADE AND BEFORE CONTOrL IS 
RETURNED TO THE MODULE, THE OTHER LINE MAY CAUSE THE EXACT SAME CALL TO BE 
MADE, IN FACT, WHEN RUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 
4 CALLS TO THE MONITOR FROM ONE SPOT IN THE MODULE, BEFORE THE FIRST CALL IS 
RETURNED FROM, THIS IS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 
BEFORE DOING CALLS, SO THAT WHEN Ix Is RETURNED TO, iT CAN KEEp WHICH 
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434 
435 
436 
437 
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LINE DID WHAT STRAIGHT. 



NOTE 2 MHEN RUNNING 2 LINES LOOPED TO EACH OTHER OUT OF THE SAME 

MODULE, THE LOW ORDER ONE (PER ORDER OF DVC# LOC . 14) SHOULD BE THE SLAVE, 

AND THE HIGHER ORDER ONE SHOULD BE MASTER. 

t 
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HUAA.Pl 












438 






JHODEM 


RATES MUST BE THE SAMElllll 


43<> 








lOMOD <NUA* >, 


1*4,5,5 


44t> 


•00000' 






HODULC t49e«0> 


NUAA ,1,4,5,5, 


441 








.TITLr NUAA OEC/XU SYSTEM EXERCISER MODULE 


442 






; 


DDXCO^ VEitSZON 


4 5/6/75 


443 








.LIST BIN 




444 












445 


000000' 




BEGINj 






446 


900000' 


05251S 840501 


■M?- MODNAMi 


•ASCI! /NUAA / 


; MODULE NAME. 


447 


030005 ' 




XFLAGj 


.BYTE OPEN 


-USED TO KEEP TRACK OF WBUFF USAGE 


448 


B00006' 


000001 


ADDR: 


i*e 


jJST DEVICE ADDR, 


449 


M0010' 


000004 


VECTORt 


i*U 


flST DEVICE VECTOR. 


45^ 


900012' 


240 


BRi i 


■ BYTE PRT«5-f0 


-IS? BR LEVEL* 


451 


000013' 


240 


BR2J 


.BYTE PRTY5*0 


;2ND BR LEVEL. 


452 


000014' 


000001 


DVIDl ! 


♦ 1 


jDEVICE INDICATOP 


453 
454 


000016' 


000000 


SRI : 


OPEN 


(SMlTCH REGISTER 1 


455 


900020' 


1 40000 


STATi 


140000 


;STATUS WORD. 


456 


B00022' 


000132' 


INIT: 


START 


jMODULE START ADDR. 


457 


000024' 


000164' 


SPOINT: 


HODSP 


•NODULE STACK POINTER. 


458 


000026' 


000000 


PASCNT: 





:PASS COUNTER. 


459 


■00030' 


000000 


ERRCNTI 





jERROR COUNTER. 


460 


•00032' 


300000 


SVR0: 


OPEN 


;LOC TO SAVE RB. 


461 


900034' 


900000 


SVRl J 


OPEN 


,-LOC TO SAVE Rl, 


462 


000t»36' 


C00000 


SVR2: 


OPEN 


,LOC TO SAVE R2. 


463 


000040' 


»00000 


SVR3: 


OPEN 


,LOC TO SAVE R3. 


464 


900042' 


000000 


SVR4: 


OPEN 


jLOC TO SAVE R4. 


465 


•00044' 


000000 


SVR5t 


OPEN 


;LOC TO SAVE R5. 


466 


000046' 


900000 


SVR6t 


OPEN 


jLOC TO SAVE R6. 


467 


000050' 


000000 


CSRAl 


OPEN 


•ADDR OF CURRENT CSR. 


468 


000052' 




SBADRt 




jADDR or GOOD DATA, OR 


469 


900052' 


900000 


ACSR: 


OPEN 


;CONTBtlTS OF CSR. 


470 


•00054' 




WASAORl 




;ADDR or BAD DATA, OR 


471 


•00054' 


000000 


ASTAT! 


OPEN 


;STATOS REG CONTENTS. 


472 


000056' 


000000 


ASB: 


OPEN 


; EXPECTED DATA. 


473 


900060' 


000C>00 


AWASi 


OPEN 


; ACTUAL DATA, 


474 


•00062' 


0005 32* 


RSTRT: 


RE3TRT 


; RESTART ADDRESS AFTER END OF PASS 


475 








.KEPT SPSIZ 


;HOOUtiE STACK STARTS HERE. 


476 








.NLIST 




4 7 7 








.WORD 




478 








.LIST 




479 








.EHDR 




48io 


0ti«i64' 




HODSP: 






481 






;•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••»••••«•• 


482 








.GLOBL WAIT, TIME, M8G8IZ, CKNSG> CRCMSG>HSGHED« MSG> PWRCNT 


483 








.GLOBL DEVStT 




484 
485 












486 


000164' 


000000 


REPORTI 





>PLAG, IF 'f, THEN ERRORS ON RECEIVED MSG'S 


487 










;ARE TOTALLED AND PRINTED EVERY • PASSES 


488 










;IF me, ERRORS ARE ALL REPORTED AS THEY HAPPEN 


489 


900166' 


000010 


LPCNT? 


10 


: ITERATIONS PER END PASS CALL 


490 


900170' 


000036 


TIHELN: 


30. 


;TIHE OUT FACTOR, IN SECONDS 


491 


900172' 


000012 


ERRLVLt 


10. 


;NuH»Eft OF ERRORS TOLERATED 


492 


000174' 


1 13226 


SYNC J 


113226 


t2 BYTES OF SYNC CHARACTER 


493 


900176' 


001150' 




OHEREC 


; ADDRESS OF WHERE 240 GOES 
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494 
495 
496 

497 
498 
499 
500 
501 
502 
50 3 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 



900200' 001472' 

900202' 01)0000 

900204' 000000 

000206' 900000 

(•00710' »etaaaa 



) ADDRESS OF WHERE 240 GOES 



000212' 
000213' 
000214' 
900215' 
000216' 
•00217' 
900220' 
900221 ' 
900222' 
900223' 
000224' 
900225' 
900226' 
900227' 
•00230' 
900231 ' 



001 

002 
00 3 
004 
005 
006 
007 
010 
011 
012 
013 
014 
015 
016 
017 



SPAREi: 

SPARE2: 

SPARE3: 

SPARE*! 9 



;PHYSICAL LINE TABLE. BYTE CONTAINS THE PHYSICAL 
;LINE t FOR THE FIRST LINE TO BE RUN, BYTE 1 WILL BE 
;THE PHYSICAL LINE RUN SECOND, ETC. 
;EACH BYTE IN THE TABLE HAS THE FOLLOWING BIT MEANINGS: 
;BIT 0-; 

JBIT 4 
JBIT 5 
;BIT 6 
;8IT 7 
PHYTABI 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
,BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE 

FOR POINT-TO POINT, I FOR MULTI-DROP 
FOR SLAVE, i FOR MASTER (DERIVED FROM SRI) 
FOR HALF DUPLEX, 1 FOR FULL 
DO NOT TEST, 1 TEST (DERIVED FROM DVIDl) 




ERpTlB .KEEPS TRACK OF RETRY ERROP 
EACH LINE 



532 










533 


900232' 


990 


EPRTAB: .BYTE 





534 


990233' 


000 


.BYTE 





535 


900234' 


000 


.BYTE 





5 36 


990235* 


090 


.BYTE 





537 


900236' 


000 


.BYTE 





538 


•00237' 


000 


.BYTE 





539 


P90240* 


000 


.BYTE 





540 


•90241' 


000 


.BYTE 





541 


900242' 


000 


.BYTE 





542 


90024 3' 


000 


.BYTE 





543 


900244' 


000 


.BYTE 





544 


900245' 


000 


.BYTE 





545 


900246' 


000 


.BYTE 





546 


900247' 


000 


.BYTE 





547 


900250* 


000 


.BYTE 





549 


990251 ' 


000 


.BYTE 


f 
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SEQ 8037 









S 




53 1 


00025 2 * 




JECOUNT TABLE KEEPS TRACK Of % Or BAD MSG'S 


552 


000 


ECOUNTI .BYTE 


e 


55 3 


00025 3 


000 


.BYTE 





554 


•00254 


000 


.BYTE 





555 


000255 


000 


.BYTE 





556 


900 256' 


000 


.BYTE 





557 






.BYTE 





558 




aaa 


.BYTE 





559 


00026 1 ' 


000 


.BYTE 





560 




a'a 


.BYTE 





56 1 




BBB 


.BYTE 





562 


000264 


000 


.BYTE 





56 3 






.BYTE 





564 


000266 ' 


000 


.BYTE 





565 


000267 ' 


flaa 


.BYTE 







000270 * 


aaa 


.BYTE 







000271 


aaa 


.BYTE 

! 



















1 










;HULTI*'DROp STATION ADDRESS TABLE 


571 






;BYTE IS THE 


MULTI-DROP STATION ADDRESS 


572 






jFOR LOGICAL LlHE 0, BYTE I IC roR LOGICAL LINE 1, ETC. 


573 






;THIS ENTRY ONLY HAS MEANING IF CORRESPONDING 


574 






>BYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SET 


575 






(AND BIT s orr 


IE MULTI-DROP SLAVE TO BE TESTED 


576 


000272 


000 


MDATABi .BYTE 





577 


00027 3 * 


001 


.BYTE 


1 


578 


00027 4 


002 


.BYTE 


2 


579 


000275 ' 


003 


.BYTE 


3 


580 


000276 * 


004 


.BYTE 


4 


581 


000277' 


005 


.BYTE 


5 


582 


000300' 


006 


.BYTE 


6 


58 3 


000301 * 


007 


.BYTE 


7 


'?* 


000302 


010 


.BYTE 


10 


585 


000303 


01 1 


.BYTE 


U 


586 


000304 ' 


01 2 


.BYTE 


13 


587 


000305 ' 


013 


.BYTE 


13 


568 


000306' 


01 4 


.BYTE 


14 


589 


000307 ' 


015 


.BYTE 


15 


59ii) 


000310' 


016 


.BYTE 


16 


591 


00031 1 ' 


017 


.BYTE 


17 


592 










593 






;MULTI>DROp STATION AOORESS NCHU TABLE 


594 






;THIS TABLE INDICATES TO ANY LINE RUNHING AS 


595 






;HULTI>DROP MASTER, WHICH STATION ADDRESS TO 


596 






{ATTEMPT TO EXERCISE OH THE HULTI-DROP LINE 


597 






;IT ALLOWS UP TO IS DirFERENT STATIONS TO BE 


598 






.■TESTED OH A LINE. EACH BYTE HHICH IS NOT««i 








; INDICATES A STATION ADDRESS TO BE TESTED. EACH 


600 






; STATION IS TESTED, BY THE ORDER OF THE TABLE, 


601 






; UNTIL THE FIRST OCCURAHCE OF A -1 (BINARY lUlllU) 


602 






> 




603 


000312' 


377 


MDHTABI .BYTE 


-1 


604 


000313' 


377 


.BYTE 


-1 


605 


000314' 


377 


.BYTE 


-1 
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606 


000315' 






607 


900316' 






606 


000317' 






609 


000320' 






610 


000321 ' 






611 


000322' 






612 


000323' 






613 


000324' 






614 


000325' 






615 


000326' 






616 


000327' 






617 


0003 30' 






618 


000331' 






&13 
620 








621 








622 


0003 32' 


1116700 


177456 


623 


000336' 


001002 




624 


»00340' 


104403 


000000' 


625 


000344' 


012705 


000000' 


626 


000350' 


004567 


000000C 


627 


000354' 


012767 


000200 


628 


000362' 


012701 


000332' 


629 


000366' 


006300 




630 


000370' 


103003 




631 


0010372' 


156741 


004233 


632 


090376' 


000402 




633 


000400' 


146741 


004324 


634 


000404' 


105061 


000040 


635 


000410' 


020137 


000211' 


636 


000414' 


001 364 




637 


000416' 


035727 


004206 


638 


000424* 


001406 




639 


000426' 


013767 


000043 


640 


000434' 


016700 


177356 


641 


000440' 


0007S0 




642 


000442' 


005301 




643 


000444* 


016700 


177336 


644 


000450' 


105731 




645 


•00452' 


1 00010 




646 


000454' 


013710 


000002 


647 


000460' 


112767 


000074 


646 


000466' 


016760 


177503 


649 








650 








651 








652 


000474' 


062700 


000010 


653 


000500' 


020127 


000232' 


654 


000504' 


F0136t 




655 


000506* 


005067 


004114 


656 


000512' 


005767 


000000G 


657 


000516* 


001405 




658 


000520' 


104407 


000000' 


659 


000524' 


104407 


000000' 


660 


000530' 


000766 




66! 









2tl 
3t: 



4«S 

5S> 



177507 
000002 



.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






MOV 


DVIO1,R0 


;GET DEVICES TO BE TESTED 


BNE 


It 


(ANY ACTIVE? 


ENDS, BEGIN 


1 


NOV 


IBEGm,R5 


(PREPARE FOR NXT JSR 


JSR 


RS,DEVSET 


;G0 ASK FOR PARAMETERS 


MOV 


f 200«MASK 


;SET UP MASK 


MOV 


iPHYTAB4^16., 


Rl ;GET END OF DEVICE TABLE 


ASL 


R0 


(CHECK EACH BIT 


BCC 


4t 


|BR IF NOT ON 


BISB 


HASK,-(R1) 


(SET THIS LINE ACTIVE 


BR 


5t 




BICB 


MA8K,.(R1) 


(CLEAR THIS LINE 


CLRB 


32. (Rl) 


(CLEAR ECOUNT TABLE 


CMP 


RlffPHYTAB-l 


(D0NE7 


BNE 


3t 


(BR IF NOT 


CMP 


HASK,I40 


(BEEN HERE BEFORE? 


BEO 


6* 


(BR IF YES 


MOV 


I40,HA8K 


(SET UP MASK 


MOV 


SRI, Re 


(GET SLAVE/MASTER INFO 


BR 


21 


(GO SET UP 


INC 


Rl 


(GET PHYTAB ADDR 


MOV 


ADDR,RO 


(GET DEVICE ADDR 


TSTB 


(R1) + 


(DEVICE ACTIVE? 


BPL 


8t 


(BR IF NOT 


MOV 


12, (R0) |SET 


DATA TERH READY 


HOVB 


l74.SyNC«l 




NOV 


SyNC,2(R0) 


(WRITE PARAMETER CONTROL 



(PARITY OFF 
(8 BITS PER CHAR 
(SYNCHRONOUS INTERNAL FILE 
ADD lie,R0 (BUMP R0 

CMP Rl,IPHYTAB+16. (DONE? 

BNE 71 (BR IF NOT 

CLR MSGCNT (COUNTS WHEN TO DO SUMMARY 

TST WAIT (LINES SET UP? 

BEQ RESTRT (BR IF YES 

HREAKI. BEGIN (TEMPORARY RETURN TO MONITOR.... 

BRtAKI, BEGIN ( THKN CONTIhUE AT NEXT INSTRUCTION. 

bR 9S (WAIT TILL WAIT IS CLFAHEO BY NET2 
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662 
663 
664 

665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
732 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 



;THR0UCH-0UT THE PROGRAM MAMJ LOCAIIOHS ARE REFERENCED 
;OFF OF (R4). THIS IS A MEANS OF KEEPING TWO SETS OF 
.•VARIABLES, ONE FOB EACH OF THE ACTIVE LINES. 
;R4 ALWAYS CONTAINS A B IF THE PROGRAM 15 CURBENTui 
JREFERENCIMC LIKE OR A 2 IF IT IS REFERENCING 
rLlNE 1, 



»00S32' 
•005 36' 
•00540' 
•00544' 
900546' 
•00552' 
•00555' 
•00562' 
•00566' 
•00572' 
•00576' 
•00602' 
000606' 
•00612' 
•00616' 
•00622' 
000626' 
•00632' 
•00636' 

•00642' 
0006 46' 
•00652' 
•00660' 
000664' 
•00672' 
000674' 
000700' 
•00704' 
000710' 
•00714' 
•00716' 
•00720' 
•00724' 
•007 3i)' 
•0073 4' 
•00743' 
•00744' 
000750' 
•00754' 
•0076?' 
•00764' 
•00770' 
99977?' 



•00774' 
•01000' 



005767 
001402 
104403 
005004 
S16706 
005067 
005067 
005067 
005067 
•05067 
005067 
005067 
005067 
005067 
005067 
605067 
005067 
005067 
•05067 

005067 
005067 
012767 
005067 
026727 
001440 
016700 
010064 
105060 
005267 
1 1 1 000 
002362 
016701 
004767 
P10164 
016701 
004767 
010164 
005267 
005064 
005064 
032700 
001377 
99042? 



005767 
001402 



000000' 

177252 
004224 
084222 
•04220 
••4216 
004214 
004212 
004210 
004206 
004204 
004202 
•04200 
004176 
004174 
004172 

004132 
004124 

000212' 003752 
004004 

003742 000232' 

003732 
004676' 
000020 
003716 



177062 

004106 

004634' 

177050 

004072 

004640' 

003714 

004712' 

004772' 

000020 



REstrt: tst 

BEU 
ENDtt 
Itt CLR 

MOV 
CLR 
CLP 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 

CLR 
CLR 
MOV 
CLR 

GETNXTJ CMP 
BEO 
HOY 
MOV 
CLRB 
INC 

Hove 

BGE 
MOV 
JSR 
HOY 
MOV 
JSR 
MOV 
INC 
CLR 
CLR 
BIT 
BME 
SR 



TST 

BEQ 



PNRCNT 
1( 
BEGIN 
R4 

SPOINT, R6 

0R0PR4 

DR0PR4*2 

DTERR4 

0TCRR4^2 

CRCR4 

CRCR44^2 

RCT0R4 

RCT0R4+2 

TXT0R4 

TXT0R4*2 

FDBKR4 

F0BKR4»2 

CHKR4 

CHKR4'f2 

PASTIM 
BRKFLG 

!PH¥TAB;i!lTLlK 
LINACT 

NXTLIN,IPHYTAB4 

DONE 

NXTLI<l,R0 

R0,CURLIN(R4) 

20(R01 

NXTLIH 

(R0),R0 

GETNXT 

ADDR,R1 

PCGETADR 

R1,DVASAV(R4) 

VECTOR, Rl 

PCCETADR 

R1,VCTSAV(II4) 

LINACT 

L00P(R4) 

RCVT0(R4) 

t2«,R0 

MD 

PP 



LINACT 
1* 



jHAS THERE BEEN A POWERFAIL 
;CONIINUE IF NOT, 

'jFIRST ACTIVE LINE 

tlWIT STACK 

•CLEAR ALL EXIT FLAGS 



JCLR PASS TIME FLAG 
;CLR FLAG THAT SaYS WE'RE IN BREAK 
•POIMTS TO NEXT LINE TO TEST 
jsHOU NO LINES ACTIVE 
16.1 DONE ALL LINES? 
I BR IF SO 

;CET ADDR OF NEXT LINE 
}SAVE IT 

jCLEAB RETRY COUNT FOR THIS LINE 

;BUHP FOR NEXT TIME 

;GET PHYSICAL LINE BYTE 

jBR BACK IF BIT 7 NOT ON 

;SET UP TO CALC ADDR 

;G0 CALC ADDR 

(SAVE DVA FOR THIS LINE 

|SET UP TO CALC VECTOR ADDR 

;G0 C»LC 

}SAVE IT 

;SHOW A LINE'S RUNNING 
;CLEAR ITERATION COUNT 
jCLR REC TIME OUT COUNT 
;MULTI DROP OR NOT? 
|BR IF IT IS 
;BR XT SOT TO P TO P 



;ANY LINES RUNNING? 
(BR ir NO 
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718 


•01002' 


300167 


003324 






JMP 


TIMCHK 


;IF YES GO CHECK FOR TIME OUT 


719 


001006' 


012731 


000212' 




is: 


MOV 


tPHYTAB,Rl 


;MUST CHECK IF MAYBE ALL LINES DROPPED 


720 


001012' 


105721 






2S: 


TSTB 


(RD* 


tlS THIS LINE STILL SELECTED? 


721 


031014' 


100405 








BMI 


3$ 


;BR OUT IF YES 


722 


•01016' 


022701 


000232' 






CMP 


iPHYTAB+16.,Rl 


(CHECKED ALL 16? 




081022' 


BS5 373 








BN'E 


2$ 




724 


•31324' 


104403 


000000' 






ENDS, BEGIN 


i 


725 
726 


•01030' 


012767 


000001 


003742 


3$l 


MOV 


tl,PAsTIM 


;SHOH IT IS TIME FOR ENDpAS 


727 
















;FOR BREAK LOOP 


728 


001036' 


035767 


003734 






TST 


BRKFLG 


(ARE HE IN A BREAK LOOP? 


729 


001042' 


031002 








BNE 


4$ 


(BR IF HE ARE 


733 


•01044' 


030167 


003376 






JMP 


EPASS 


(GO DO END OF PASS 


731 
732 


001050' 








4$: 








733 


031350' 


134403 








EXITt 




(EXIT TO MONITOR. MODULE WAIT FOP INIEBUPT. 


734 










JPOINT 


TO POINT 






735 


•01052' 


012764 


000001 


004766' 


PP: 


MOV 


ll,FDFLAG(R4) 


(SAY HERE FULL DUPLEX 


736 


•01060' 


032700 


000100 






BIT 


f 100,P0 


(HALF OR FULL DUPLEX? 


737 


001064' 


091402 








BEQ 


It 


(BR IF HALF 


738 


•01066' 


030167 


000512 






JMP 


PPFD 


(JMP TO FULL DUPLEX ROUTINE 


739 


•01072' 


005064 


004766' 




1S< 


CLR 


F0rLAG(R4) 


(CORRECT FLAG CAUSE HERE NOT FD 


743 


•01076' 


032703 


000040 






BIT 


140, R0 


(SLAVE OR MASTER? 


741 


•01102' 


001141 








BNE 


PPHDM 


(BR IF MASTER 


742 
743 










t 

;POINT 


TO pOINTi 


1 HALF DUPLEX, SLAVE 


744 


•01104' 








PPHDSl 








745 


•31104' 


|»16464 


004644' 


034650' 




MOV 


AMSGBF(R4),RECADR(R4) >SET UP INPUT AREA 


746 


001112' 


016764 


000000G 


004654* 




MOV 


MSGSIZ,RECCNT(R4) >SET UP COUNT 


747 


001123' 


C62764 


000012 


004654' 




ADD 


<12,RECCNT(R4} 


(CORRECT FOR HEADER AND CRC 


748 


•01 126' 


016764 


J 77036 


004660* 




MOV 


TIHELN,RECTIH(R4} (HON LONG TO WAIT 


749 


•31134' 


066764 


177030 


004660' 




ADD 


TIMELN,RECTIM(R4) iDOUBLE IT 


750 


•01142' 


034767 


000766 






JSR 


PC, REC 


(GO RECEIVE DATA 


751 


•31146' 


000462 








BR 


FERR 


(BR TO ERROR ROUTINE 


752 


001150' 


033431 






ONEREC: 


BR 


1$ 


(MAKE THIS A NOPx240 TO 


753 


•01152' 


000432 








BR 


PPHDS2 


(DO OHE-hAY-IN (REC. ONLY) 


755 


•01162' 


016764 


000000G 


004732' 




MOV 


MSGSIZ,TXCNT1(R4) tGCT MSG SIZE 


756 


•01170' 


062764 


000012 


004732' 




ADO 


I12,TXCNT1(R4) 


(CORRECT FOR HEADER AND CRC*S 


757 


•01175' 


012764 


000004 


034736' 




MOV 


I4,TXCNT2(R4} 


(SEND 4 FILLS AFTER MSG 


758 


001204' 


012764 


011152' 


004726' 




MOV 


|FILL,TXADR2(R4) 




759 


001212* 


004767 


002722 






JSR 


PCCTS 


(GO GET CLEAR TO SEND 


760 


•01216' 


016764 


176746 


004742* 




MOV 


TIMELN,TMTTIM(R4) jGIVE *EM 1/2 MINUTE 


761 


001224' 


004767 


002176 






JSR 


PC,THT 


(GO TRANSMIT 


762 


•012 30' 


000423 








BR 


DERP 


(BR TO ERROR ROUTINE 


763 


001232' 


042774 


000004 


004534* 




BIC 


«4,»DVASAV(R4) 


(KILL REQ TO SEND 


764 


•01240' 


005264 


004712' 




PPHDS2I 


INC 


L00P(R4) 


(COUNT AN ITERATION 


765 


•01244' 


026764 


176716 


004712* 




CMP 


LPCNT,LO0P(R4} 


(DONE ENOUGH! 


766 


•01252' 


003314 








BGT 


PPHDS 


(NO, CO DO ANOTHER TIME 


767 


•01254' 


005367 


003410 




LNDONE: 


DEC 


LINACT 




768 


001260' 


016403 


004634' 






MOV 


DVASAV(R4),R3 


(GET DEVICE ADDRESS 


769 


031264' 


042713 


177775 






BIC 


•177775, (R3) 


(KILL ALL BUT DTR 


773 


031270' 


03506 3 


000004 






CLR 


4(R3) 


(KILL TRANSMITTER TOO 


771 


001274' 


030167 


177364 






JMP 


GETNXT 


(YES DO NEXT LINE 



772 
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SEQ 0041 



774 
775 
776 
777 
778 
779 
780 
78t 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
006 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
82S 
829 



001300' 
001306' 
001312' 
•01314' 
001316' 
•01322' 
00132b' 
•01334' 
001336' 
•01340' 
•01342' 
•01344' 
•01350' 
•01354' 
•01362' 
•01366' 
•01370' 
•01372' 
001374' 
•01400' 
•01404' 



042774 
012703 
000401 
005003 
016401 
105261 
126167 
002003 
005703 
001703 
000736 
142-'11 
005264 
104411 
005767 
001402 
005004 
000402 
012704 
005364 
000723 



000004 

1''7777 



004634' DEPRj 



004676' 

000030 

000020 



000200 
005002' 
011156' 
003414 



000002 
005002' 



FERR: 
FERRl, 



Itl 
2tt 



BIC 

MOV 

BR 

CLR 

NOV 

INCB 

CMPB 

BGE 

TST 

BEQ 

BR 

BTCe 

mc 

HSCNt 

TST 

BEO 

CLR 

BR 

HOV 

DEC 

BR 



I4,»DVASAV(R4) 

1-1, R3 

FERRl 

R3 

CURLIll(R4),RI 
20(R1 ) 

20(R1)>ERRLVL 

DROP 
R3 

ONrREC 
PPHDS2 

S20e. '"• : 

DR0PR«(R4) 
ADROp, BEGIN 
DR0PR4 
It 
R4 
28 

12, R4 

DR0PR4(R4) 
LNDONE 



:HILL REO TO SEND 

,SET FLAG FOR HHICH RETURN 

;5ET FLAG FOR WHICH RETURN 
,CET LIHE I »ODR 
jCOUBI AN ERROR 
•TOO HAHY ERRORS? 
;BR IF YES 

,D0 A THT OP DO A REC? 
;BR IF TMT 
jGO TRY AGAIN 

•M)Op ^HE LINE FROM TEST 
,SEE NOTE 1 IN FRONT OF LISTING 
;ASCII MESSAGE CALL WITH COMMON HEADER 











>POINt 


TO POINT 


HALF DUPLEX MASTER 




•01406' 








J 

PPHDMj 








001406' 


012764 


000000G 


004732' 




MOV 


IMSGHeD#TXA0Rl(R4) 


;GET MSG ADDRESS 


•01414' 


016764 


000000G 


004732* 




HOV 


MSCSIZ,TXChT1(R4) 


;GET MSG SIZE 


■01422' 


062764 


000012 


0047 32' 




ADD 


il2,TXCNIl(R4) 


;CORRECT FOR CRC AND HEADER 


•01430' 


012764 


000004 


004736* 




NOV 


I4,TXCHT2(R4) 


;SEND 4 FILLS AFTER MSG 


001436' 


012764 


011152' 


004726' 




HOV 


(PILL,TXADR2(R4) 




•01444' 


004767 


002470 






JSP 


PC.CTS 


;G0 GET CLEAR TO SEND 


•01450' 


016764 


176514 


004742* 




HOV 


TIHeLII,THTTlH(R4) 


iGlVE 'EM 1/2 MINUTE 


001456' 


004767 


001744 






JSR 


PC, THT 


;G0 TRANSMIT 


001462' 


000434 








BR 


GERR 


; ERROR RETURN 


001464' 


042774 


000004 


004634* 




BIC 


f4,8DVASAV(P4) 


;KILL REO TO SEND 


001472' 


000401 






ONETHTI 


BR 


It 


;MAKe THIS A NOP>240 FOR ONE 
















;1IAY OUT, IMI ONLY. OTHER SIDE 
















:0r LINE MUST DO ONE WAY IN. 


001474' 


0004 1 7 








BR 


PPH0M2 


;USED FOR ONE HAY OUT ONLY 


001476' 


016464 


004644' 


004650* 


it: 


HOV 


AMSGBr ( R4 ) > RECAOR ( R4 } 


;SeT UP INPUT AREA 


001504' 


C16764 


0000000 


004654' 




HOV 


HSCSIZ>ReCCNT(M) 


;SET UP COUNT 


001512' 


062764 


000012 


004654' 




ADO 


tl3,ReCCNT(R4) 


jCORRECT FOR HEADER AND CRC 


•01520' 


016764 


176444 


004660* 




HOV 


TINELH,RECTIH(R4) 


;GIVE EH 1/2 MINUTES 


001526' 


004767 


000402 






JSR 


PC,REC 


;G0 RECEIVE 


001532' 


000413 








BR 


HERR 


; ERROR RETURN 


001534' 


005264 


004712' 




PPHDM2: 


IHC 


L00P(R4) 


jCOONT AN ITERATION 


001540* 


026764 


176422 


0H4712* 




CHp 


LPCHT,LO0P(R4) 


;DONE ENOUGH? 


001546' 


003317 








BGT 


PPHDH 


;BR IF NOT 


•01550' 


000167 


177500 




t 


JHr 


LNDONE 




001554' 


042774 


000004 


0f 4634* 


GEPRI 


BIC 


(4,»DVASAV(R4) 


>KILL REq TO SEND 


001562' 


016401 


004676' 




HERR: 


HOV 


CURLIN(R4),R1 


JGET LINE t ADDRESS 


•01566* 


105261 


000020 






INCB 


20<R1) 


;Count An error 


001572' 


126167 


000030 


176372 




CHPB 


20(R1)>CRRLVL 


jTOO MANY ERRORS? 
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830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
B42 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
88^ 
881 
882 
883 
884 
885 



•01600* 002261 
001602' B00754 



BGE 
BR 



DROP 
PPHDH2 



;BR IF YES 
;G0 TRY AGAIN 



POINT -TO-POINT FULL DUPLEX 



001604' 


032700 


000040 




PPFDj 


BIT 


140, R0 


; MASTER OR SLAVE? 


001610' 


001003 








BNE 


11 


;BR IF MASTER 


001612' 


012764 


177777 


004766' 




MOV 


1177777, F0FLAG(R4) jSHOW ITS SLAVE 


001620' 


004767 


002314 




Itl 


JSR 


PCCTS 


;G0 GET CLEAR TO SEND 


001624' 


016464 


004644' 


004650' 


PPFDi : 


MOV 


AMSGBF(R4),RECADR(R4) ;GET INPUT AREA 


001632' 


016764 


000000G 


004654' 




MOV 


MSGSIZ,RECCNT(R4) JSET UP COUNT 


001640' 


062764 


000012 


004654' 




ADD 


I12,RECCHT(R4) 


;CORRECT FOR CRC AND HEADER 


001646' 


004767 


000262 






JSR 


eCRtc 


;G0 GEI KbCblVIiiG STARTED 


001652* 


000500 








BR 


JERP 


jREC ERROR RETURN 


001654* 


000441 








BP 


FDRCDN 


:REC DONE 


001656* 


012764 


000000G 


004722' 




HOV 


IHSGHCD,TXADR1(R4) >FULL DUPLEX RETURN FROM RtC 
















:GET THT ADDR 


001664* 


016764 


000000G 


004732' 




HOV 


HSGSIZ,TXCNT1CR4) ;GET THT COUNT 


001672' 


062764 


000012 


004732' 




ADD 


I12,TXCMT1CP4) 


jCORRECT FOR HEADER AND CRC 


001700' 


01 2764 


000004 


004736' 




MOV 


I4,TXCNT3(R4} 


■SEND 4 FILLS AFTER MSG 


001706' 


012764 


011152' 


004726' 




HOV 


IFILL,TXADR2(R4] 




001714' 


004767 


001506 






JSR 


PC, THT 


;G0 TMT 


301720' 


000455 








BR 


JERR 


;THT ERROR RETURN 


001722' 


000412 








BR 


It 


;GOOD TMT DONE RETURN 


001724' 


012700 


002122' 






HOV 


IFDTO,R0 


jFULL DUP RETURN, SET UP FOR TIME OUT 


•01730' 


016701 


176234 






HOV 


TIMELN,R1 


{GIVE EH 1 MINUTE 


•01734* 


066701 


176230 






ADD 


TIMELN,R1 




•01740* 


012702 


000000 






HOV 


10, R2 


;SHOW ITS A REC WAIT 


•01744' 


000167 


002306 






JMP 


TIHKEP 


;G0 WAIT 


•01750' 


012764 


000001 


004752' 


t 

1$: 


HOV 


it,THT0ON(R4) 


ISHOW THT IS DONE 


B01756' 


S ii;4400 








EXITt 




lEXIT TO MONITOR. MODULE WAIT FOR INTERUPT 


001760' 


005764 


004752* 




FDRCDNI 


TST 


THTD0N(R4) 


lis TMT DONE YET? 


•01764' 


001020 








BNE 


4t 


;BR IF YES 


•01766' 


005264 


005026' 






INC 


FDBKR4(P4) 


;SEE NOTE 1 IN FRONT oF LISTING 


001772' 


104407 


000000' 






BREAKt 


BEGIN 


{TEMPORARY RETURN TO MONITOR.... 


•01776' 


1 04407 


000000' 






BREAKt 


BEGIN 


-THEN CONTINUE AT NEXT INSTRUCTION. 


•02002' 


005767 


003020 






TST 


FDBKR4 




002006' 


001402 








BEQ 


2t 




002010' 


005004 








CLR 


R4 




•02012' 


000402 








BR 


3t 




002014* 


012704 


000003 




2S: 


HOV 


i2,R4 




002030' 


005364 


n05(*26' 




3s: 


DEC 


F0BKR4(R4) 




002024' 


000755 








BR 


FDRCDN 


;BR AND WAIT SOME MORE 


•02026' 


005264 


004712' 




4$ : 


INC 


L00P(R4) 


jCOUNT AN ITERATION 


002032' 


026764 


176130 


004713' 




CMP 


LPCNI,L00P(R4) 


;DONE ENOUGH 


002040' 


3013271 








BGT 


PPFDI 


jNO, GO DO MORE 


•02042' 


042774 


000004 


0H4634' 




BIC 


«4,8DVASAV(R4) 


fKILL REU Ttl SEND 


002050' 


9051167 


177200 






JMP 


LNDONF 












;FD 1"T 


EPRQR 






0^2054' 


S»U76* 


00e«0i 


B!»4752' 




MOV 


li,T*'TD0N{p4) 


jDON'T BOTHER WSItlSG FOji TMT 
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886 


•02062' 


012764 


177777 


00467 2 ' 




MOV 


987 


•02070' 


01 6401 


004676 ' 






MOV 


888 


•02074' 


1 05261 


000020 






INCB 


899 


•02100' 


1 26167 


000020 


1 76064 




CMPB 


S9d 


•02106' 


^02724 








8LT 


891 


•02110* 


042774 


000004 


004634* 




BIC 


992 


•02116' 


000167 


177222 






JMP 


893 










J 




994 














895 










JFULL 


DUPLEX 


896 


•02122' 


012764 


002054' 


004716' 


fDTOj 


NOV 


897 


•02130' 


000167 


001124 






JMP 


S99 















1177777, AB0PTCR4) ;TELL INT ROUTINES TO GIVE UP 

CUBLIII{R4),R1 ;GET CURKENT LINE INFO 
, COUNT ANOTHER ERROR 
jTOO MANY ERRORS? 
iSO SO TRY AGAIN 
{KILL REQ TO SEND 
;GIVC UP ON THIS LINE 



20(Rt) 
20(R1),ERRLVL 
FDfiCOB 

l4,*DykSAV(R4) 
DROP 



IJERR,RECRTN(R4) :SET UP CORRECT RETURN 

ROTO JCO REPORT REC TIME OUT 



NUAA DEC/Xll SXSTtM EXERCISER MODULE 



NtlAA.Pll 






899 








900 








901 








902 








903 








904 








905 








906 


002134' 


012664 


004716* 


907 


•^2140* 


016401 


004640* 


909 


002144' 


012711 


002244' 


909 


•02150* 


060421 




910 


002152* 


116711 


175634 


911 


•02156' 


005064 


004672* 


912 


•02162' 


012764 


000002 


91 3 


•02170' 


P05764 


004766' 


914 


•02174' 


001413 




915 


•02176' 


052774 


000120 


916 


•02204' 


016402 


004716* 


917 


902210* 


062702 


000004 


918 


002214* 


010207 




919 


002216' 


012700 


003260* 


920 


002222' 


016401 


004660* 


971 


•02226* 


012702 


000000 


922 


002232' 


052774 


000120 


923 


002240' 


000167 


002012 


924 








925 








926 








927 


•02244' 


000405 




929 


002246' 


010446 




929 


•02250' 


010346 




93<) 


002252' 


012704 


000002 


931 


002256* 


00040 3 




932 


•02260' 


010446 




933 


002262' 


010346 




934 


002264^ 


005004 












936 


•02272' 


005764 


004672* 


937 


•02275' 


001403 




938 


002300' 


042713 


000160 


939 


•02304* 


000460 




940 


002306' 


01 1364 


004706' 


941 


•02312' 


016346 


000002 


942 


•02316* 


005764 


004664* 


943 


•02322' 


001421 




944 


•02324' 


122716 


000220 


945 


•02330' 


001406 




946 


•02332* 


126716 


175636 


947 


•02336* 


<»01440 




946 


•02340* 


042713 


000020 


949 


•02344' 


000435 




950 


•02346* 


005064 


004664* 


951 


•02352* 


00576 4 


004766* 


95 2 


•02356' 


100003 




953 


•02360' 


012754 


000k)l(^ 


954 


902366* 


005767 


175572 
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SUBROUTINE TO RECEIVE DATA 
CALLED HITH A JSR PC, REC 

AFTER SETTING LOCATIONS RECADR(R4 ) , RECCNT( R4 ) , RECTIM CP4 ) , VCTSA V ( R4 ) , 
AND DVASAV(R4). RETURNS ON ERROR OR RETURNS 
2 BYTES PAST CALL IF SO ERROR 

J 

REC: 



MOV 


CR6)+,RECRTN(R4) 


;SAVE RTN ADDR 


MOV 


VCTSAVCR4),R1 


}GET VECTOR ADR 


MOV 


IRGCInT,(R1} 


;MOVE IN INT. ROUTINE ADR 


ADD 


R4,(Rl)+ 


;CORRECT FOR WHICH LINE 


HOVB 


BRl,(Rn 


;HOV IN PRIORITY LEVEL 


CLR 


AB0RT(R4) 


;CLEAR ABORT FLAG 


MOV 


t2,SYNCNT(R4} 


;MUST GET 2 SYN CHARACTERS 


TST 


FDFLAG(R4) 


I FULL DUPLEX? 


BEQ 


It 


jBR IF NOT 


BIS 


tl20,»DVASAV(R4) 


;KICK OFF REC 


BOV 


RECRTN(R4),R3 


|GET RETURN ADDRESS 


ADD 


14, R3 


}FD RETURN 


MOV 


R2,R7 


; RETURN 


MOV 


IRDTO,R0 


{RETURN AOOR 


MOV 


RECTIMCR4],R1 


;HOW LOHG TO MAIT 


MOV 


*0,R2 


(SHOWS ITS A REC WAIT 


BIS 


I120,*DVASAVCR4) 


{ENABLE INT AND READ 


JMP 


TINKER 


{EXIT TO TIMKEP AND WAIT 


ER INTERRUPT ROUTINE 




BR 


It 




HOV 


R4,-(R6) 


{SAVE R4 


MOV 


R3,-(R6) 


{SAVE R3 


MOV 


12, R4 


{SET UP FOR SECOND LINE 


BR 


2t 




HOV 


R4,-(R61 


{SAVE R4 


HOV 


R3,-tR6) 


{SAVE R3 


CLR 


R4 


{SET OP FOR FIRST LINE 


HQV 




.rpT tur npvTfr innorce 


TST 


AB0RT(R4) 


{GIVE UP? 


BEO 


3t 


{BR IF NO 


BIC 


1160, (R3) 


{DISABLE REC INT.S 


BR 


7t 


{AND LEAVE 


HOV 


CR3),ERRWD(R4] 


{SAVE STATUS 


HOV 


2CRS),-(R6) 


{SAVE CHARACTER AND ERR BI 


TST 


SYNCNT(R4) 


{ARE HE IN SYNC 


BEQ 


5t 


;BR IF YES 


CMPB 


1220, (R6) 


{IS IT A DLE? 


BEO 


4t 


;BR IF YES 


CMPB 


SYNC,CR6) 


{IS IT A SYNC CHAR? 


BEQ 


6t 


{YES, IGNORE IT 


BIC 


120, (P3) 


{RESYNC IF NOT 


BR 


6t 


{LEAVE 


CLR 


5YNCNT(R4) 


{SHOW WE*RE IN SYN 


TST 


FDFLAGCR4) 


;FD SLAVE? 


BPL 


5t 


{BR IF NOT 


MOV 


I10,TSYNCT(R4) 


{LET TMT GO IF FULL DUP 


fST 


REPORT 


{REPORT ERR NOW OR LATER? 



HUA» DEC/XU S)(STEM EXERCISER MODULE M»CYU 27(732) 20-MAY-76 12l2B P»GE 21 SCO 8049 

NUAt.Ptl 



955 




001 013 








BNF 


Sit 


;BR IF LATER 


956 


•03374* 


! AAM^n 


004706 






TSTB 


ERRHD(R4) 


;IS REC DONE BIT SET? 


957 


- 

•02400 


1 00040 








BPL 


RERR 


;BR ir NOT 


958 


•02402 ' 


005716 








TST 


(R6) 


;DATA ERROR? 


959 




1 00006 








BPL 


Sit 


;BR IF NO DATA ERR 








004706 






MOV 


(R6)*f ERRHDCR4} 


sSAVE INFORMATION 


961 


•924 W' 




1 00000 


004 '06 




BIC 


1100000. ERRWD(R4} ;USE BIT 15 FOR FLAG TO RERR 


962 


•02 420 ' 












RERR+2 








11 1674 


004650 




SIC 


unvB 


(R6} > BRECADRC R4 ) 


ySTORE THE CHAR IN BUFFER 




•02436 * 


005264 








Twr 


RCCADR(R4) 


>rOR NEXT TIME 






J^* 


004634 






nrr 


RECC1IT(R4) 


, COUNT IT 




•02436* 


003406 








Bi r 


B« 


|BR IF DONE 














TST 


(R6)* 


;FIX STACK 


Q&a 






000120 








I120>(R3) 


, READ ANOTHER 


QAQ 


M344A* 








7 1 S 


MOV 


(R6)+>R3 


;RESTORE R3 


970 


•03450* 


012604 








MOV 


(R6)'»tR4 


; RESTORE R4 


971 


•02452* 


000002 








RTI 




1 RETURN 


972 


•02454* 


016467 


004702* 


000014 


8(1 


MOV 


RECD(R4) >RPIP0«3 


973 


002462' 


005726 








TSt 


CR6) + 


;FIX STACK 


974 


002464* 


042713 


000160 






BIC 


tl60> (R3} 


975 


•02470* 


012603 








MOV 


CR6)'^>R3 


1 RESTORE REGS 






012604 








MOV 


(R6)t,R4 




977 


•02474 








RPlRQl 








97 6 


• 




003704 ' 


0(l0O0 w 




PIRQt> 


RECDN, BEGIN 


; RTI AND QUEUE UP TO CONTINUE AT ReCDN 


OO 1 

982 


002502* 


005726 






PERR 1 


TST 


(R6) + 


|rlA STACK 


983 


002504* 


012603 








NOV 


( R6 ) ♦» R3 


; RESTORE REG 


984 


•02506' 


042774 


000160 


004634' 




BIC 


I160« 0DVASAV(R4) 


1 Kb0b 1 1 nCi r^E>L Ci i V bp 


985 


•02514* 


012767 


002542' 


000014 




MOV 


I38r t( + 3 


■ e VP IID DTDO TI^ 
1 OCT Ur 1 V r 1 I v 


986 


002522' 


060467 


000010 






ADD 


R4t 1>«2 


; THE. kXvHT rLAl. C. 


987 


•02526 ' 


060467 










R4rll*3 




989 


•02532* 


01 2604 








MOV 


(R6)+»R4 


; RESTORE REG 


Ann 

990 
991 


002534 








111 








002534 


000004 


002542 


000000 




PIRQI f 


2lrBEGIN 


; RTI AND QUEUE UP TO CONTINUE AT 2S 


992 




005004 






21 • 


CLR 


P4 


;SHOH ITS LINE 


994 




00?402 










3< 


• 


995 




01 2704 


000002 






MOV 


f 2>R4 


;SH0N its line 1 


995 


002552 


016467 


004634 ' 


1 75270 


3 1 S 




D VASAV ( R4 ) $ CSRA 


> CCI* fID PAD PDD l^fcT.I. 
f dCrT Ur r VK E<nK ^ Auw 




00256^ 


016467 


004706* 


1 75264 




unu 


ERRWD ( R4 ) f AC8R 


7 set up for err call 


998 


002566 




004676 * 






MOV 


CURLIN(R4).RI 


;GET ADDR Of CUR LINE BYTE 


999 


00257 2 ' 


1111 02 








MOVB 


(Rl)»R2 


;GET VALUE OF LINE 1 


1 000 






177760 






BIC 


I177760.R3 


;THR0H OTHER BITS AWAY 


1 00 1 


002600 




004 706 








ERRHD(R4} 


jlS IT A DATA OR LINE CHANGE ERR 


1002 


002604 


1 000 1 








BPL 


DATAER 


;&R ir DATA ERR 








175242 






NOV 


R3,A8TAT 


;SET UP ERR INDICATION 


1 004 


002612* 


062767 


002000 


175234 




ADD 


f003O00'A8TAT 


;SHOW WHICH TYPE 


1005 


















1006 


9a262K' 


104404 


000000' 






ERROR! 


(BEGIN 


IDATA SET CHANGE 


1007 


















1008 


002624' 


104400 








EXITI 




;CXIT TO MONITOR. NODULE WAIT FOR INTERUPT. 


1009 


















1010 



















101 1 

1012 
1013 
101 4 
1015 
1016 
1017 
1018 
1019 
1030 
1031 
1032 
1033 
1321 
1035 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
106 ) 
1064 
1065 
!066 



:/Xll SYSTEM EXERCISER MODULE 


MACYU 


27(732) 


30>HAr-76 


131 


128 PACE 22 




002626' 


010267 


175222 


DATAEPI 


MOV 


R3,A8TAT 




;SET UP ERR 


LINE • 


002632' 


1 16467 


004707' 175315 




HOVB 


ERRNO+l (R4} 


(ASTATtlfGET ERR 


TYPE 


002640' 


042767 


107400 175206 




BIC 


1107400, ASTAT 


J LEAVE ONLV 


ERR BITS 


002646' 


005264 


005006* 




INC 


DTERR4(R4) 




;SEE NOTE 1 


IN FRONT OF LISTING 


003652' 


104404 


000000' 




ERRORS, 


p BEGIN 




.-DATA ERR 




003656' 


005767 


002124 




1ST 


DTCRR4 








003662' 


001402 






BEQ 


It 








003664' 


005004 






CLR 


R4 








B0366D* 


000403 






BR 


2t 








002670* 


012704 


000002 


is: 


NOV 


i2,R4 








002674* 


005364 


005006* 


2$: 


DEC 


DTERR4(R4} 









ASTAT IN ERROR MESSAGE 
REC DATA PARITY ERROR 
;0200XX > FRAMING ERROR 
;0400XX ■ OVERRUN 



! CHECK 
,-0100XX 









tXX > 


PHYSICAL 


LINE 1 




•02700' 


000167 


000330 


1 


JMP 


RRET 


;G0 DO AN ERROR EXIT 


002704' 


005004 




hcECONl 


CLR 


R4 


ISHOH WE'RE LINE 


002706* 


000402 






BR 


It 




•02713' 


012704 


000003 




MOV 


• 2,R4 


;SHOH HE'RE LINE 1 


•02714' 


042774 


177771 


004634' It: 


BIC 


1177771, •DVASAV(R4] ;SHUT UP DEVICE 


•02722' 


005064 


004772' 




CLR 


RCVT0(R4) 


; RESET TIME OUT RETRY COUNT 


•02726' 


0<<5064 


•05072' 




CLR 


RETTAB(R4) 


;KILL IMPENDING TIMEOUT 


092732' 


e05767 


000000G 


3ti 


TST 


CKMSG 


;IS CHECK MSG ROUTINE BUSY? 


•027 36' 


001420 






BEQ 


6t 


•BR ir NOT 


•02740' 


005264 


005032' 




INC 


CHKR4(R4} 


jSEE NOTE 1 IN FRONT OF LISTING 


•02744' 


104407 


000000' 




BREAKt, 


.BEGIN 


{TEMPORARY RETURN TO MONITOR,... 


002750' 


104407 


000000' 




BREAKt, 


, BEGIN 


jTHEN CONTINUE AT NEXT INSTRUCTION. 


002754' 


005767 


002052 




TST 


CHKR4 




002760' 


001402 






BEQ 


4t 




002762' 


005004 






CLR 


R4 




002764' 


000402 






BR 


5t 




•03766' 


012704 


000002 


4$l 


MOV 


i2,R4 




002772' 


005364 


005032' 


5SI 


DEC 


CHKP4(R4} 




•02776' 


000755 






BR 


3t 




•0300.1* 


016402 


004644' 


611 


MOV 


AMSGBFCP4),R2 


;GET REC DATA 


003004' 


026762 


177776G 


000006 


CMP 


MSC-3,6(R2) 


;IS HEADER CRC OK? 


003012' 


001407 






BEO 


7t 


;BR IF OK 


003014' 


005767 


175144 




TST 


REPORT 


; REPORT ERR HOK? 


003020' 


001055 






BNE 


X5 


;BR IF LATER 


003022' 


012767 


003000 


175024 


MOV 


(003000, ASTAT 


;SHOW ERR TYPE 


•03030' 


000466 






BP 


PECERP 




•03032' 






7S! 








003032' 


1 17467 


004676' 


0001*40 


MOVB 


0CUPLIN(R4),9( 


;GET LINE ( 


003040' 


U42767 


177760 


000032 


BIC 


(177760, 9t 


;t,EAVE ONLY LINE BITS 


003046' 


005767 


175112 




TST 


REPORT 


.•REPORT BAD DATA? 


•03052' 


001403 






BEQ 


8( 


;BH IF YES 


003054' 


052767 


100000 


000Ht6 


BIS 


1100000, 9( 


;SET FLAG TO CKMSG 


•83062' 


062702 


000(»!(» 


IS! 


ADD 


f ia,R2 


jGFT »nOR OF "SG 



NUA» DEC/XU SYSTEM EXERCISER MODULE MACYU 27(732) 20-MAY-76 12l28 PACE 23 
MUAA.PU 



SEQ' 0047 



1067 
1066 
1069 
1970 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
5679 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1105 

1 lie 
nil 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 



003066 ' 


01026 7 


000010 






MOV 


R2,9l'f2 




•03072* 


•04567 


000002G 






JSR 


R5,CKMS(:t2 


jGO CHECK MSG 


P03076* 


•00000' 








BEGIN 






•03100' 


000000 






9t: 









903102' 


900900 








3 






•03104' 


000417 








BR 


X4 


;BAD RETURN 


•03106' 


066702 


00000(10 






AOD 


HSGSIZ.R2 


•POINT IT TO MSG CRC, DATA WAS OK 


003112' 


126722 


000000G 






CHPB 


CRCMSG. tR2)+ 


IcHECK 1ST CRC BYTE 


S03! 16' 


001025 








8ME 


CER 




•03120' 


1 26722 


00000 IG 






CMPB 


CRCHSGtl»CR2)+ 


jCHECK SECOND 


003124' 


001022 








BNE 


ccr 




•03126' 


062764 


000002 


004716' 




ADD 


I2>RCCRTN(R4] 


;G000 RETURN 


9031 34* 


S0S364 


005072 ' 




SRETs 


CliR 


RET?ftB(R4 5 


:KILL IMPENDING TIMEOUTS 


•03140* 


•00174 


004716* 






JMP 


•RECRTNtB4) 


;ANO SO BACK 


•03144* 


905767 


175014 




X4: 


TSI 


REPORT 


;REP0RT EBR now OR LATER? 


•03150' 


001001 








BNE 


XS 


jBP ir LATER 


•03152' 


000770 








BR 


RRET 


;OTHERWISE RETURN 


•03154' 


1 1 7402 


004676 ' 




< 

X5l 


HOVB 


»CUPLTN(r4},r2 


jGET CURRENT LINE 1 


•03160' 


•42702 


177760 






BIC 


I1777«0f R2 




003164* 


1 05262 


000252 ' 






INCB 


EC0UIlT(R2) 


;C0UNT An ERROR FOR THAT LINc. 


•33170' 


000761 






• 


BR 


RRET 


;AND RETURN 


•33172 


005767 


174766 




} 

CERI 


T5T 


REPORT 


; REPORT NOW OR LATER? 


•03176' 


001 366 








BNE 


X5 


;BR IF LATER 


003200' 


01 2767 


004000 


174646 




NOV 


t004O«0.ASTAT 


; Indicate error type 


003206' 


1 1 7402 


004676' 




RECERRt 


NOVB 


•CURI.IN(R4)«R3 


;GENeRATE LINE t 


•03212' 


•42702 


177760 






BIC 


1177760. R3 


; 


•03216' 


•50267 


174632 






BIS 


R2,ASTAT 


;ADD IN LINE « 


•03222' 


005264 


005012* 






INC 


CRCR4(R4) 


jSEE NOTE 1 IN FRONT OF LISTING 












1 •••••»•»•«•«»»•#♦•••••••♦»•••••♦••••»**••••••*•♦«••••»•••••»••» 


•03226* 


104404 


000000' 






ERRORS 


BEGIN 


jCRC ERROR 












«»»♦••»•»#•»#•••••#•♦••••••••••»•••••••••••♦♦♦••♦♦•*»«»•*♦••••»• 


•03232' 


005767 


001554 






TST 


CRCR4 




•0323b' 


001402 








BCQ 


It 




003240' 


005004 








CLR 


R4 




•03242' 


•00402 








BR 


2t 




•03244' 


012704 


000002 




l$l 


NOV 


13, R4 




•03250' 


005364 


005012' 




2$: 


DEC 


CRCf<4(R4) 




•0 3254' 


0Dol67 


177654 










jSkO RETURN 










JREAD TIME OUT 


ROUTINE 




•03260' 


01 2764 


177777 


0S4672* 


RDTOl 


MOV 


1177777, AB0Pr(R4) ;IEtL INT ROUTINES TO GIVt UP 


003266 










INC 


RCVT0{R4) 


;COUNT ANOTHER RETRY 


003272' 


026467 


004772* 


J74672 




CMP 


RCVT0<R4),ERRLVIi ;EHOUGH TRYS? 


•03300' 


001043 








BNC 


4t 


;BR IF NO 


•03302' 


017467 


004b34* 


174542 




MOV 


«DVASAV(R4),ACSR;GET REC STATUS 


•0331(4' 


042774 


177771 


004634' 




BIC 


♦177771, »0VASAV(R4) jKILL ALL BUT DTV 


•03316' 


016467 


004634* 


174524 




NOV 


DVASAV(R4),CSRA 


;PUT ADDR IN FOR ERR CALL 


•03324' 


016401 


004676' 






MOV 


CURLIN(R4),R1 


;CET ADDR OF CUR LINE BYTE 


•33330' 


111102 








HOVB 


(R1),R2 


;GET VALUE OF PHY LINE t 


•03332' 


042702 


177760 






BIC 


ll777«a,R2 


; THROW OTHER BITS AWAY 



NUAA DEC/XU SYSTEM EXERCISER MODULE 
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1123 
1124 
1125 
1126 
1 127 
1 ! 28 
1129 
1 1 30 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 

1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
117S 



003336' 
033342' 
•93346' 



962702 
010267 
005264 



001000 
174506 
005016' 



003352' 194404 000000' 



903356' 
•03362' 
•03364' 
00335b' 
•03370' 
003374' 
•03409' 
093404' 

003410' 
•03414' 

003420' 
003424' 



005767 
001402 
005004 
900492 
012704 
005364 
005064 
900174 

016401 
105361 

005 364 
•00767 



003426' 
•03432' 
•03436' 
•03442' 
•03446' 
•03452' 
•03454' 

•03464' 

•93472' 
•03476' 
•03502' 
•03504' 
•03506' 
003514' 
•03522' 
•03530' 
•93534' 
•03540' 



003542' 
•03546' 
•03552' 
003556' 
903564' 
»03572' 



912664 
005064 
016401 
062701 
012711 
060421 
116711 

012764 
016403 
005764 
001417 
1 00003 
012764 
BI2763 
1 16763 
016402 
062702 
010207 



•12709 
•16401 
012702 
012763 
116763 
000167 



000902 
005016' 
004772* 
004716' 

004676' 
000029 



ADD 11000, R2 ; INDICATE REC TIMEOUT ERR 

MOV R2,AST»T ;SET UP FOR ER CALL 

IHC RCT0R4CP4) ;SEE NOTE 1 IN FRONT OF LISTING 

; •••«•••*••••••••••••••••••••••••••«•••••••*••••••••••••••••••«• 

ERRORt, BEGIN ;REC TIMED OUT 

'. •••••••••••••••••••••••••••**•••••••*•*••••••»«•••••••••••«••«• 



l$l 
28S 



3$: 

4$l 



TSI 

BEO 

CLR 

BR 

MOV 

DEC 

CLR 

JMP 

MOV 
DECB 



RCT0R4 
II 
R4 
2S 

12, R4 

RCT0R4(P4) 

RCVT0(R4) 

•RECRTN(R4} 

CURLIN(R4),R1 
20CRI) 

L0OP(R4) 
3« 



jRESCT RETRY COUNT 
; ERROR PTN 

jGET ADDR OF CUR LINE 

;DEC ERROR COUNT TO CORRECT FOR 

;INSUING INC 

;CORRECT FOR LATER CALLING THIS A GOOD RUN 
; RETURN 



004746' 

004752' 

004640' 

000004 

003576' 

174332 
334572 • 
000010 
004634' 
004766' 



177777 094756' 
000120 090004 
174446 090006 
004746' 
000004 



004022' 
004742' 
000004 

000129 009994 

174404 gpocei 

00046(^ 



;SUBROUTINe TO TRANSMIT DATA 
JCALLED WITH A JSR PC,tMT 

;AFTER SETTING LOCATIONS TXADRl(Rl), TXADR2(R4), TXCNTl ( R4 ) , TXCNT2 ( R4 ) , TMTIM(P4), 
;VCTSAV(R4), DVASAVCR4), SUBROUTINE CTS MUST BE CALLED FIRST. 
; RETURNS ON ERROR, RETURNS 2 BYTES PAST NORMAL RETURN 
;IF NO ERROR 

TMT: 



MOV 


(SP)+,TMTRET(R4) JSAVE PTN ADDRESS 




CLR 


THTD0N(R4) 


{INITIALIZE FLAG 




MOV 


VCTSAV(R4),R1 


;GET REC VECTOR ADDRESS 




ADD 


(4, PI 


;MAKE IT TMT VECTOR 




MOV 


ITHTINT,(R1) 


;MOVE IN INT ROUTINE ADDRESS 




AOD 


R4, (Rl)+ 


;CORRECT FOR WHICH LINE 




MOVB 


BR1,(R1) 


;MOV IN PRIORITY LEVEL 




CLR 




.rt.F»P TIMF OUT IBOBT ¥I.IC. 




MOV 


•ia,TSYNCT(R4) 


;SEND TEN SYN CHARACTERS 




HOV 


DVASAV(R4),R3 


;GET DEVICE ADDRESS 




TST 


FDFLAG(P4) 


;ARE HE FULL DUPLEX? 




BEQ 


2« 


;BR IF NOT, ELSE 




BPL 


18 


jSKIP IF MASTER 




MOV 


•177777, TSYNCT 


(R4) ;MAKE TMT WAIT FOR A 


PEC 


MOV 


1120, 4(R3} 


;SET TMT INT ENABLE 




MOVB 


SYNC,6(R3) 


;SEND A FILL CHAR 




MOV 


TMTRET(R4) ,R2 


:GET BAD RET ADDR 




ADD 


• 4,R2 


jMAKE IT THE FULL DUPLEX RETURN 


MOV 


R2,R7 


;AND RETURN 




MOV 


ITXT0,R9 


:TIME OUT RETURN ADDR 




MOV 


TMTTIM(R4),B1 


;HOW LONG TO WAIT 




MOV 


(4,R2 


;SHOW ITS TRANSMITTER 




MOV' 


tl20, 4(P3) 


;SET TMT INT ENABLE AND SEND 


BIT 


MOVB 


SYNC,6(R3) 


;SFND A FILL CHAP 




JHP 


TIMKEP 


;EXIT TO TIHKEP AND WAIT 
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SEO 0049 



J)79 
1 tS0 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1 191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1301 
1202 
1203 
1204 
120S 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
123>» 
1231 
1232 
1233 
1334 



>THT INTERRUPT POOTIHE 



0t»3576' 


000405 






TMTINTl 


BR 








003600' 


010446 










OA. 




'SAVE H4 


003602' 


•10146 








MOV 






;SAVE R3 


003604 ' 


01 2704 


000002 












•SET TO LINE 1 


00361t1' 


000403 








BR 


11 

21 






Pa36l2' 


010446 






1 S t 


MOV 






SAVE R4 


03361 4' 


010346 










R3f "(SP) 




•SAVE R3 


003616' 


005004 








rf R 






jSET TO LINE 


•03620' 


005764 


004672 ' 




2t : 


TST 


aB0RT(R4j 




;GIVE UP7 


•03624' 


100417 








BMl 


TICXXT 




;BP ir YES 


•03626' 


016403 


004634' 






HOV 




R3 


fGET DVA 


•03632' 


005764 


004732' 








TALnXI I K4 J 




;FIBST BUFFER TMT'tD? 


•03636' 


001015 








BNC 






jBR IF NOT 


003640' 


005764 


004736' 






TST 






•SECOND BUFFER THT'ED? 


•03644' 


00 1 4 3 4 








BCO 






jBR IF YES 


•03646' 


1 1 7463 


004726' 


000006 




HOVB 




,6(R3) fSENP NEXT BYTE 


•03654' 


005264 


004726' 






INC 






I HOV ADDRESS POINTER 


•03660' 


005364 


004736' 






DEC 


TXCNT3 ( R4 } 




, COUNT IT 


•03664' 


012603 






TIEXITt 


MOV 


( R6 ) ♦ f P 3 




; RESTORE R3 


•03666' 


013604 








HOV 


( R6 ) ♦ » R4 




; RESTORE R4 


•03671^' 


000002 








RTI 






; RETURN 


•03672' 


005764 


004756* 




FTBUFi 


TST 


TSYMCTC R4) 




jSENT ENOUGH FILL CHARS? 


•03676' 


001 407 








BEQ 


2» 




;BR ir YES 


















;IF NEGITIVE 

;SEHD TILL RECINT CLEARS TSYNCT 


•03700' 


100402 








BMI 


It 




•03702' 


005 364 


004756' 






DEC 


TSYNCT(R4) 




jCLSE COUNT IT 


•03706' 


116763 


174262 


000006 


Itl 


NOVB 


STNC,6(R9) 




;SEND IF YES 


M3714' 


•00763 








BR 


TIEXIT 




:AND LEAVE 


•03716' 


117463 


004723' 


000006 


2tt 


MOTB 


0TXkDRl(R4) 


>6(R3) iSCHD NEXT BYTE 


M3724' 


005264 


004722' 






IHC 


TX*DR1(R4) 




;NOVe ADDRESS POINTER 


•03730' 


005364 


004732* 






DEC 


TXCNTKR*) 




;COUNT IT 


•03734* 


000753 








BR 


TIEXIT 




;AND LEAVE 



003736' 
•03744' 
•03746' 
•03752* 
•03760' 
•03762' 
•03764' 



042763 000120 
012603 

005064 005076' 

062764 000003 

005704 

001004 

012604 



000004 
004746' 



•03766' 000004 004004' 
012604 



•03774' 

•0377o' 

•04004' 
004006' 
•04012' 
•04016* 



000004 004012' 00000<t' 
005004 

B00174 004746' 

012704 000002 

000174 004746' 



;ALL CHAR'S HAVE BEEN TNT'ED 










TIDONEI 


BIC 


«130,4(R3) 


:KILL THT'ER 










HOV 


(R6}*,R3 


; RESTORE R3 










CLB 


RETTAB«4(R4} 


;KILL IMPENDING 


TIMEOUT 








ADD 


t2,TMTRET(R4) 


;MAXE IT A GOOD 


RETURN 








TST 


R4 


;LINE OR 1 










BHE 


It 


;BR IF LINE 1 










MOV 


(R6)'»,R4 


; RESTORE R4 










PIRQ*» 


3S, BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


2S 


11: 


HOV 


(R6)'»,R4 


: RESTORE R4 










PIROtf 


3t, BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


3t 


3(: 


CLR 


R4 


(SET TO LINE 










JMP 


aTHTRET{R4) 


{RETURN 








3(1 


HOV 


(3.R4 


jSET TO LINE 1 










JHP 


•THTitET(R4) 


; RETURN 
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1335 
1236 
1237 
1738 
1239 
1240 
1341 
I 242 
1 243 
1244 
1245 
1246 
1747 
! 34? 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1368 
1369 
1370 
1371 
1272 
1373 
1374 
1375 
1276 
1277 
1278 
1379 
1380 
1281 
1282 
1283 
1294 
1285 
1286 
1287 
1288 
1289 
1290 



;ROUTINE IF TRANSMIT TIMES OUT 



004022' 
•04030' 
004036' 
634044' 
004052' 
•04060' 
004064' 
•04066' 
•04072' 
004076' 
•04102' 



013764 
016467 
062767 
017767 
042777 
016401 
111102 
042702 
•62702 
010267 
005264 



177777 004672' 

004634' 174012 

000004 174004 

174000 174000 

177767 173770 
004676* 

177760 
00S000 
173752 
0OS022* 



•04106' 104404 000000' 



004112' 
•041 16' 
•04120' 
004122' 
•04124' 
•04130' 
004134' 



•04140' 
•04144' 

•04159' 
•04154' 
•04156' 
•04162' 
•04170' 
•04172' 
•04176' 
•04204' 



005767 
001402 
•05004 
000402 
012704 
005364 
000174 



012664 
016401 
012711 
060421 
1 1671 1 
032774 
001402 
016407 
013774 
104400 



000002 

005022' 

004746' 



MOV 


#177777, AB0RI(R4) ;TELL INT ROUTINES TO GIVE UP 


HOV 


DVASAV(R4),CSRA 


;GET ADDR OF STATUS 


ADD 


I4,CSRA 


;HAKE IT THT CSR 


MOV 


•CSRA.ACSP 


'SAVE STATUS 


BIC 


4177767. fCSRA 


{KILL TRANSMISSION AND INT 


MOV 


CURLIN(R4),R1 


;GET ADDR OF CUR LINE 


HOVB 


(Rl ),R2 


;GET VALUE 


BIC 


1177760. R3 


;LEAVE ONLY LINE ( 


ADD 


(5000, R2 


{INDICATE THT TIMEOUT 


MOV 


RS.ASTAT 


;SET UP FOR ERROR CALL 


INC 


TXT0R4(R4) 


;SEE NOTE 1 IN FRONT OF LISTING 


»•••••••»••••»••••#••»•. 


•#••»••»♦•»•»♦•••»» »••••»" 


ERRORS. 


.BEGIN 


;TMT TIMEOUT 


TST 


TXT0R4 




BEQ 


1( 




CLR 


R4 




BR 


2S 




MOV 


12. R4 




DEC 


TXI0R4(R4) 




JHP 


•THTRET(R4) 


;BAD RETURN 



004762' 




CTSJ 


MOV 


004640' 






HOV 


004206* 






HOV 








ADD 


173630 






HOVB 


020000 


004634' 




BIT 








BEU 


•04762' 






MOV 


000046 


004634' 


RTSSETj 


HOV 








FX1T( 



1(S 

2(: 



>SUB GETS CLEAR TO SEND FOR LINE IN 0VASAV(R4) AND VCTSAV(R4} 

CR6)«,CTSRET(R4} ;SAVE RET ADDRESS 

VCISAV(R4),R1 >GET VECTOR ADDR 
#CTSImT,(B|) ;M0V IN IMT ROUTINE ADDR 
R4,(Rt)+ ;SHOHS NHICH LINE 

BRl.(Rl) ;GET BRl LEVEL 

(30000. »DVASAV(R4) >IS clear TO SEND UP? 
RTSSET ;BR IF NOT 

CTSRET(P4).B7 jRETUPN 
(46.0OVASAV(R4) :SET REQ to SEND 

{EXIT TO MONITOR. MODULE WAIT FOR INTERUPT. 



;INT ROUTINE 



•04306' 


000403 






CTSINTJ 


BR 


IS 


{DIFFERENT PIRQ'S 










•04210* 


000004 


004224* 


000000* 




PIROd 


r2$. BEGIN 


{ RTI AND QUEUE UP 


TO 


CONTINUE 


AT 


2( 


004216' 








Itl 
















004216' 


000004 


004232' 


000000' 




PIROd 


>3S. BEGIN 


{ RTI AND QUEUE UP 


TO 


CONTINUE 


AT 


3S 



•04224' 
•04230' 
004232' 
•04234' 
004242' 
•04244' 
i>04252' 



013704 
000401 
005004 
033774 
031755 
042774 
0i 6*07 



020000 004634' 4$: 



000040 ««4634' 
004762' 



HOV (2.F4 {SET UP FOR LINE 1 

BP 4S 

CLP B4 {SET UP FOR LINE 

BIT (20000, »DVASAV(R4) > IS CLEAR TO SEND SET? 

BEQ RTSSET ;G0 TRY AGAIN IF NOT 

BIC •40,»DVASAV(P4) {DISABLE DATA SET CHG JNT'S 

MOV CTSPET(R4),P7 {RETURN 
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SCO 0051 



J29t 
1292 
1293 
1294 

1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1363 
1304 
1 395 
1306 
1307 
1309 
1 309 
1310 
13U 
1312 
1313 
1314 
1315 
1316 
1317 
1316 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1 326 
1327 
1326 
1329 
1330 
1331 
! 332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1 340 
1341 
1342 
1343 
1 344 
I 345 
1346 



•04256' 060402 

•04260' B1ul62 

004264' 067762 

•04272' 010462 

•04276' »10062 



004302' 622767 

•04310' 001410 

•04312' 005704 

004314' 001402 

•04316' 005004 

•04320' »00402 

•04322' 012704 

•04326' 000167 



004362' 005767 
00436o' 001401 
004370' 104400 



005062' 

000000G 005062' 

005102' 

005072' 



000002 000 360 



000002 
174332 



004332' 012702 005072' 
034336' 005722 
004340' 001026 
904342' 020227 005102' 
004346' 001373 
•04350* 005767 000424 
004354* 001402 
004356* 000167 000064 



000410 



•04372' 012767 000001 000376 

004400' 104407 000000' 

•04404' 104407 000000* 

0044in' 005067 000362 

004414' 000746 

•0441b' 005742 

•04420' 027752 000000G 177770 
004426' 003002 



;ALL ROUTINES COME HEPE WHILE WAITING FOR I/O 

;boutine eithf.r kicks orr secohd lime, Ko-irys 

JROUTIHES or TIMEOUTS, OR JU6I DOES BREAKS. 
;I/0 ROUTINES THAT FIKISH OP BEFORE TIMEOUT VALUE 
tMUST CLEAR LOCATION RETTABCR*) *S !F RECEIVER OP +4 
;IF TMT, 

;CALLCD with a JMP to TIMKEP AFTER LOADING 



; R0 m 


WHERE TO 


RETURN IF TIME 


; OUT 


1 Rl m 


HON LONG 


TO WAIT (IN SECONDS) 


} H2 I 


e IF ITS 


A REC TIHEIMS 


OR 4 IF ITS « i«i in'"** 


> R4 X 

S 


FOR ACTIVE LINE 0, 2 


FOR ACTIVE LINE 1 


TlHKEpj 


ADD 


R4,r2 


;FIGURE OUT WHICH TABLE ENTRY 




MOV 


R1,TImTAB(R2) 


iSTORE HOW LONG TO WAIT 




ADD 


0T1mE.I1mTAB{R2) J*DI> PRESENT TIME 




MOV 


R4,R4TAB(R2) 


;SAVE WHICH ACTIVE LINE 




HOV 


R0,RETTAB(R2) 


; WHERE TO RET TO, PLUS 








,IF THIS ENTRY IN TABLE IS 








;0 THEN NO TIMEOUT WILL 








jOCCUR FOR THIS ENTRY SET 




CMP 


i2,LINACT 


;ARE 2 LINES GOING? 




BEQ 


TIMCHK 


;BR IF YES 




TST 


R4 


;ARE HE LINE 0? 




BEQ 


It 


; BR IF YES 




CLR 


R4 


; IF NO MAKE IT 




BR 


2t 




It: 


MOV 


12, R4 


;WE WERE SO NOW DO 1 


2St 

; 


JMP 


GETNXT 


;G0 DO OTHER LINE 


timchk: 


NOV 


iRETTAB,R2 


;GET ADDR OF TIME STATUSES 


It! 


TST 


(R2)» 


;ANY WAIT GOING ON? 




BNE 


4t 


;BR IF YES 


lit: 


CMP 


R2,tRETTA8«ie 


;ARE WE DONE LOOKING 




BNE 


It 


;BR BACK IF NO 




TST 


PASTIH 


;TIME FOR END OF PASS 




BEQ 


2t 


}BH IF NO 




JMP 


EPASS 


;G0 REPORT END OF PASS 


2t: 


TST 


BRKFLG 


;ArE WE ALREADY IN A BREAK? 




BEQ 


3t 


;BR IF NO 




EXlTI 




;EXIT TO MONITOR. MODULE WAIT FOR INTERUPT, 


3ti 


HOV 


tl, BRKFLG 


;SHOW WERE DOING BREAK 




BREAKt, 


BEGIN 


jTEHPORARY RETURN TO MONITOR.... 




BREAKI, 


BEGIN 


;THEn CONTINUE AT NEXT INSTRUCTION. 




CLR 


BRKFLG 


;SHOW WERE BACK 




BR 


TIHCHK 




4tt 


TST 


-(R2) 


;MOVE R2 BACK 




CMP 


9TiMe,-ie(R2) 


;IS TIME UP? 




BGT 


5t 


;BR IF YES 
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1347 


•04430' 


005722 






TST 


(R2) + 


;BUMp R2 BACK AGAIN 


1348 


004432' 


000743 






BR 


lit 


;G0 CHECK OTHERS 


1349 

1350 


004434' 


P16204 


000010 


5t» 


MOV 


10(R2),R4 


;SET R4 CORRECTLY FOR WHICH LINE 


1351 


004440' 


01 1203 






HOV 


(R2).R3 


;SAVE RETURN 


1352 


994442' 


00501 2 






CLR 


f R2) 


;ClEAR this ENTRY 


1353 


004444' 


010307 






HOV 


R3,R7 


;JHP TO TIHE OUT ROUTINE 


1354 
















1 355 








J 








1356 
















1357 








1 EPASS 


DOES END 


OF PASS CALL 


AND PRINTS ERR SUMMARY 


1 356 








>IF LOCATION REPORT IS NOT • 




1 359 
1 360 


904446' 


•05767 


173512 


EPASS! 


TST 


REPORT 


IDO ERR SUM OR NOT 


1 361 


•04452' 


•01461 






BEQ 


5S 


;BR IF NO 


1 362 


004454' 


005267 


000146 




INC 


MSGCNT 


;COUNT A PASS 


1 363 


004460' 


026767 


000142 173476 




CMP 


MSGCNT, REPORT 


;TIME FOR A HSG? 


1 364 


004466' 


001053 






BNE 


5t 


;IF NOT EVEN 8, SKIP MSG 


1 365 


•0447H' 


•05067 


000132 




CLR 


MSGCNT 




1 366 


304474' 


012700 


000212' 




HOV 


IPHYTAB,R0 


;FIND WHICH LINES ARE RUNNING 


1 367 


•04500' 


012701 


011252* 




NOV 


tSUMl«4,Rl 


jPOINTS TO HSG 


1368 


•04504' 


1 05710 




ISi 


TSTB 


(Re) 


;I5 LINE IN USL? 


1 369 


004506' 


100403 






BHI 


2t 


;BR IF YES 


1370 


•04510* 


•12711 


054130 




HOV 


154130, (Rl) 


JPUT XX IN 1 OF tRRS 


1371 


•04514* 


000427 






BR 


4t 




1372 


•04516' 


1 16002 


000040 


2ts 


HOVB 


32.(R0),R2 


;GET 1 OF ERRS 


1 373 


•04522' 


1 05060 


000040 




CLRB 


32. (R0) 


jRESET ERR COUNT 


1 374 


•04526' 


•22702 


000077 




CMP 


•77, R2 


;ANY GOOD MSGS 


1375 


•04532' 


002416 






BLT 


3t 


;BR IF NO 


1 376 


•04534' 


010203 






HOV 


H2,R3 


;PUT IN HSG 


1377 


•04536' 


042703 


177770 




BIC 


ll7777e,R3 


(LEAVe ONLY LOW DIGIT 


1378 


•04542' 


062703 


000060 




ADD 


»6e,R3 (MAKE 


IT ASCII 


1 379 


004546' 


110361 


000001 




HOVB 


R3,1(R1) 


; STORE IT AWAY 


1380 


004552' 


•06702 






ASR 


R2 


jGET NEXT DIGIT 


1 381 


•04554' 


006202 






ASR 


R2 




1 382 


004556' 


006302 






ASK 


P2 








S627£!2 






»nn 


S £S- 


.iiiKr TT ASCII 


1384 


004564' 


110211 






HOVB 


R2, (Rl) J PUT 


IT IN MSG 


1385 


•04566' 


000402 






BR 


4t 




1386 


904570' 


012711 


042102 


3tl 


HOV 


142102, (Rl ) 


jPUT IN AN 'BD' fOR BAD 


1387 


•04574' 


•05200 




4t! 


INC 


R0 


;auMp LINE POINTER 


1388 


004576' 


062701 


000010 




ADD 


tl0,Rl 


jPOINT TO NXT MSG 


1389 


004602' 


•20027 


000232' 




CMP 


R0,(PHYTAB^20 


•DONE 


1390 


•04606' 


•01336 






BNE 


It 


;G0 DO MORE 


1 391 


•04610' 


10441 1 


004622' R0e<)00' 




MSGNt,HSUM, BEGIN 


;ASCII MESSAGE CALL WITH COMMON HEADER 


1392 
















1393 
















1394 


•04616' 






5$: 








1395 


•04616' 


1 04402 


000000' 




ENDPSt, 


BEGIN 


jSIGNAL END OF PASS. CONTINUE AT RESTRT 


1 396 
















1 397 


•04622' 


01 1 162' 




MSUH: 


SUM 






1398 


•04624' 


1 77777 






-1 






1 399 
















1400 


•04626' 


000000 




MSGCNT! 







jCOUNTS END PASSES FOR MESSAGE CALL 


1401 


•04630' 


000000 




MASK : 







;USED FOR BIC'ING IN LOOPS 


1403 


•04632' 


000<>0» 




NXTLIN! 


Id 




;ADP OF NEXT LIN 
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SEO e»53 



1 403 


904634 ' 


000000 






1 404 


•04636* 


000000 






1 405 


M4640' 


e}0e00 


VCTSAV t 




1 40b 


004642' 


000000 






1407 


004644' 


0051 1 2* 




MSGoFO 


1 40B 


•04646' 


0971 32' 




HSCBFI 


1409 


004650' 


000000 


RECADRI 




1410 


004652' 


000000 






1411 


004654' 


000000 


RECCNT 1 




1412 


004656' 


000000 






1413 


004660' 


000000 


RECTIM s 





1414 


004662 ' 


000000 







1 4 1 % 


034664 ' 


000000 


SYNCNTS 




1416 


004666' 


000000 






1417 


004670' 


000000 


LIN ACTt 




1418 


004672' 


000000 


ABORTt 




1419 


004674' 


000000 






1 420 


004676 ' 


000000 


CURLINl 




1 421 


00470U' 


000000 






1422 


004702' 


002704' 


RECD: 


RECDN 


1 423 


004704* 


092710' 




RECDN»4 


1424 


004706' 


000000 


ERRHDl 





1425 


004710* 


000000 






1 426 


004712' 


000000 


LOOP: 





1427 


004714* 


300000 







1426 


<I04716' 


000000 


RECRTHi 





1 429 


004720* 


000000 







1 430 


004722* 


000000 


TXADRl 1 





1431 


004724* 


090000 







1432 


004726' 


000000 


TXADR2t 





1433 




000000 




* 


1434 


004732* 


000000 


TXCHTl 1 




1435 


004734* 


000000 







1436 


004736* 


000000 


TXCNT2t 





1437 


004740' 


000000 







1436 


004742' 


000000 


THTTIMt 





1 4 39 


004744' 


000000 







1440 


004746' 


000000 


tmtret: 





1441 


00475(4' 


000003 







1442 


004752* 


090000 


THTDON 1 





1443 


004754' 


000000 







1 444 


004756* 


000000 


TSYNCTt 





1 445 


004760* 


000000 







1 446 


004762* 


000000 


CTSRETl 





1447 


004764* 


000000 







1448 


004766* 


000000 


EDFLACt 





1 449 


004770' 


900000 







1 450 


004772* 


000000 


RCVTOl 





1451 


004774 ' 


000000 







1 452 


004776* 


000000 


BRKFLGI 





1453 


005000* 


daoeoo 


PASTIMl 





145 4 


005002' 


000000 


DR0PR4I 





1455 


005004' 


000000 







1456 


005006' 


090000 


DTERR4I 





1457 


005010' 


000000 







1458 


005012' 


900000 


CRCR4t 






(EXIT rLACS 



HOLDS DVA FOR ACTIVE Ll0 
HOLDS DVA FOR ACTIVE Lil 
HOLDS VCT FOR ACTIVE Lt0 
HOLDS VECTOR FOR ACTIVE Lll 
ADDRESS OF MSG BUFFER 
ADDRESS OF MSG BUFFER t 
CURRENT REC WORD POINTER 
CURRENT REC WORD POINTER 1 
REC BYTE COUNT FOR 
REC BYTE COUNT FOR 1 

TEMP HOLDS TIME OUT VALUE FOR A REC 
SAME BUT FOR LINE 1 

COUNTS HOW MANY SYN CHARACTERS REC 
SHOULD WAIT FOR. 

HOLD THE NUMBER OF LINES RUNNING, 0*2 
ABORT FLAG FOR Lt0 
ABORT FLAG FOR Lll 

POINTS TO STATUS BYTE FOR CURRENT L|0 
POINTS TO STATUS BYTE FOR CURRENT Lil 
WHERE TO PIRO AFTER REC DONE 

HOLDS ERR WORDS TEMPORARILY 
HOLDS ERR WORDS TEMPORARILY 
HOLDS LOOP COUNT FOR LINE • 
HOLDS LOOP COUNT FOR LINE • 1 
HOLDS RETURN ADDR FOR LINE 10 
HOLDS RETURN ADDR FOR LINE II 
HOLDS 1ST ADDR TO TMT FROM, LINE 
SAME FOR LINE 1 

HOLDS 2ND ADDR TO TMT FROM, LINE 
SAMS FOR LINE 1 

HOLDS 1ST THT COUNT FOR LINE 
SAME FOR LINE 1 

HOLDS 2ND THT COUNT FOR LINE 
SAME FOR LINE 1 

HOLDS TIME OUT TIME FOR LINE 
SAME FOR LINE 1 

HOLDS RTN ADDR FOR TMT, LINE 
SANE FOR LINE 1 
FLAG FOR WHEN A TMT IS DONE 
SANE FOR OTHER LINE 

HOLDS * OF SYN CHAR TO SEND, LINE 

SAME FOR LINE 1 

HOLDS RETURN ADDR FOR CTS 

SAME FOR LINE 1 

IF HALF DUPLEX, 1 IF FULL 

COUNTS REC TIME OUT RETRYS 

IS A ONE DURING BREAKS 
|HAS A 1 WHEN ITS TINE FQR FnD OF PASS 



NUAA DEC/Xll SYSTEM EXERCISER MODULE 



NUAA.Pll 




1 459 


005014' 


090000 


1460 


005016' 


000000 


1461 






1462 


095020' 


000000 


146 3 


005022' 


000000 


1464 


005024' 


000000 


1465 


005026' 


000000 


1466 






1467 


005030' 


090000 


1466 


005032' 


090000 


1469 


0050)4' 


000000 


1470 






1471 






< *T> 






1473 






1474 






1475 


•05036' 




1476 


005036' 


010046 


1477 


005040' 


042700 


1478 


005044' 


001404 


1479 


005046' 


062701 


14R0 


005052' 


005 300 


1481 


005054' 


090773 


1482 


005056' 


012600 


1483 


005060' 


000207 


1484 






1485 






1486 


005062' 


000000 


1487 


005064' 


000000 


1488 


005066' 


090000 


1489 


•05070' 


000000 


1490 


005072' 


000000 


1491 


005074* 


000000 


1492 


005076* 


090000 


1493 


•05100* 


000000 


1494 


•05102* 


000000 


1495 


005104* 


090000 


1496 


•05106* 


000000 


1497 


005110' 


000000 


1498 






1499 






1500 


0051 12' 


091010 


1501 


007132* 


001010 


1502 


f 11152' 


177777 


1503 


01 1154' 


177777 


1504 


01 1 156' 


011450 


1505 


•11160' 


177777 


1506 






1507 


01 1 162' 


005015 


1508 


011170' 


029105 


1509 


01 1176' 


046440 


1510 


011204' 


051105 


1511 


• I 1212' 


026105 


1512 


011220' 


941517 


1513 


01 1226' 


095015 


1514 


•11230' 


U44514 



044523 
040514 
043523 
046040 
044440 
040524 



041516 
052123 
050949 
047111 
020116 
020114 



MACYU 27(732) 20>MAy76 I3l2t PACE 30 



TXT0R4I 


FDBKR4I 



CHKR4I 




>R1 HAS ADDR OR VECTOR 

>R0 HAS LINE * IN LOW BITS, 

GETADRI 



MOV 

BIC 

BEO 

ADD 

DEC 

BR 

MOV 

RTS 



R0,>(R6) 
1177760, R0 
2« 

iie,Ri 

R0 
1* 

CR6)*,R0 
PC 



RETURNS WITH ADDR OR VECTOR IN Rl 
;SAVE R0 

ISAVC ONLY LINE i 
jDONE 

;BUMP TO NEXT LINE 
;ADDED ENOUGH TIMES7 
{GO BACK 
I RESTORE R0 

iRETURN WITH DVA IN Rl 



IHHEN TO TIME OUT FOR RECLINE 
;WHEH TO TIME OUT FOR RECLINE t 
;WHEN TO TIME OUT FOR TXT, LINE 
;WHEN TO TIME OUT FO TXT, LINE 1 
; WHERE TO RETURN FOR REC LINE 
(WHERE TO RETURN FOR REC LINE 1 
; WHERE TO RETURN FOR TXT LINE 
; WHERE TO RETURN FOR TXT LINE 1 
;HOLD R4 FOR RETURNS 



HSGBF0: 
MSGBFll 
FILLI 



.EVEN 
SUM I 



520. 
520. 



;REC BUFFER FOR LINE 9 
;REC BUFFER FOR LINE 1 
;4 CHARACTERS OF FILLER PYTES 



043516 021440 



.BLKW 
.BLKW 
177777 
177777 
NDROP 
-1 

.ASCII <15><I2>'SIHCE LAST MSG PER lint, IN OCTAL •<15><12> 



.ASCII 'HNS. • ERRS'<15><1 2> 
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MACYIl 27(732) 2a-M*Y-76 12:28 PAGE 31 SEO 0055 



1515 


•11236* 


02004(? 


051105 


051522 










1516 


011244* 


005015 














1517 


911246' 


•30060 


026455 


030060 


suMi : 


.ASCII 


'00. 


-•••<15><12> 


1518 


BU254* 


905015 












1519 


811256* 


830460 


026455 


830860 




.aSC! I 


'9l« 


-«»e'<i3><i2> 


1520 


411264' 


005015 












1521 


»11266' 


031060 


026455 


030)460 




.ASCn 


'92- 


-•••<15><12> 


1522 


9U274' 


005015 












1523 


















1524 


















1525 


B11276' 


031460 


026455 


030060 




.ASCII 


•03- 


-00'<15><12> 


1526 


011304' 


•05015 












1527 


S!i306* 


332060 


626453 


a 10060 




.ASCII 


*04' 


=«»a'<i5>«i 2> 


1528 


011314* 


005015 














1529 


















1530 


















1531 


















1532 


011316* 


032460 


026455 


030060 




.ASCII 


•05- 


-00'<15><12> 


1533 


01 1324' 


•05015 












1534 


011326' 


033060 


026455 


030060 




.ASCII 


'•6- 


-0«'<15><12> 


1535 


•11334' 


005015 














1536 


•11336' 


033460 


026455 


030060 




.ASCII 


•87- 


-••'<15><12> 


1537 


011344' 


005015 














1536 


011346' 


030061 


026455 


030060 




.ASCII 


•ifl- 


-»0'<15><12> 


1539 


•11354' 


005015 














1540 


•11356' 


030461 


026455 


030060 




.ASCII 


•11- 


-•a'<15><12> 


1541 


011364' 


•05015 














1542 


• 1 1366' 


•31061 


026455 


030060 




.ASCII 


•12- 


-08*<15><12> 


1543 


•11374' 


•05015 














1544 


•11376' 


031461 


026455 


030060 




.ASCII 


•13- 


-•••<15><12> 


1545 


•11404' 


005015 














1546 


•11406' 


032061 


026455 


030060 




.ASCII 


•14- 


-•••<15><12> 


1547 


•11414' 


005015 














1548 


•11416' 


032461 


026455 


030060 




.ASCII 


•15- 


-•••<15><12> 


1549 


•11424' 


095015 














1550 


01 1426' 


033061 


026455 


030060 




.ASCII 


•16- 


-•••<15><12> 


1551 


• 1 1434' 


005015 














1552 


•11436' 


033461 


026455 


030060 




.ASCII 


•17- 


-^••<15><12> 


1553 


011444' 


005015 














1554 


















1555 


•11446' 


000 








.BYTE 







1556 




011450' 








.EVEN 






1557 


















1558 


01145V?' 


044514 


042516 


053440 


HDROPt 


.ASCIE 


•LINE HAS DROPPED^ 


1559 


B11456' 


051501 


042040 


047522 










1560 


011464' 


050120 


042105 


000 










1561 




000001 






.END 
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NIIAA.Pll 


CROSS 


REFERENCE 


TABLE 


USER I 


SYMBOLS 








ABORT 


•04672R 






911» 


936 


1113* 


1159» 


1189 


1237# 


ACSP 


00005 2 R 




469* 


997» 


U17» 


1340« 








ADDP 


•00006R 




448t 


643 


702 










ADROP 


«"11156R 




787 


15041 












AMSGBF 


•04644R 




745 


814 


840 


1053 


1407* 






ASB 


i>0e056R 




4721 














ASTAT 






4711 


1003» 


1004* 


1011* 


1012* 


1013* 


1058* 


AMAS 


•00060R 




4731 














BDCNV » 




G 


It 














BEGIN 


•001400R 




4451 


624 


625 


658 


659 


672 


724 








1016 


1044 


1045 


1069 


1101 


1127 


1223 








1391 


1395 












BIT0 » 


•90001 




4821 














BITl * 


•00002 




4R2> 














BIT10 X 


•02000 




4R2« 














BITU » 


004000 




4821 














BIT12 « 


•10000 




4821 














BIT13 = 


•20000 




4821 














BIT14 * 


•40000 




4821 














BIT15 « 


10000? 




4821 














BIT2 * 


000004 




482* 














6IT3 « 


000010 




4S2« 














BIT4 » 


•00020 




482* 














BIT5 » 


•00040 




482* 














BIT6 I 


•0010(1 




482t 














BIT7 « 


00020(1 




4R2i 














BIT8 X 


n00400 




482* 














BIT9 » 


001000 




4R2t 














BREAKSs 


104407 




482* 


658 


659 


868 


869 


1044 


1045 


BBKFLG 


•04776P 




691» 


728 


1334 


1338* 


1341« 


14521 




BPl 


•000 12R 




4501 


910 


1158 


1269 








BR2 


•0001 3R 




4511 














CDATAS* 


104414 




4821 














CFR 


003172R 




1075 


1077 


10931 










CHKP4 


005032R 




687* 


688* 


1043* 


1046 


1051* 


1468* 




CKMSG 3 




G 


4S2i 


1041 


1068 
















4S3i 


1074 


1076 










CRCB4 


•05012R 




679* 


680* 


1099* 


1103 


1108* 


14581 




CSRA 


•00050R 




467f 


996» 


1119» 


1238* 


1239» 


1240 


1241* 


CTS 


•041 t0R 




759 


805 


839 


12651 








CTSINT 


•04206R 




1267 


12761 












CT5PET 


•04762R 




1265* 


1272 


1290 


1446( 








CURLIN 


pe4676R 




697* 


778 


827 


9S7 


998 


1061 


1087 


DATAER 


e02626R 




1002 


10111 












DATCK«= 


104417 




482* 














OATER$> 


104405 




482* 














DERR 


•01300R 




762 


774i 












OEVSET» 


»•>••» 


G 


4831 


626 












DONE 


•0077 4R 




695 


716t 












DROP 


•01344R 




781 


7851 


830 


892 








DR0PR4 


•O5002R 




675» 


676» 


786* 


788 


793» 


14541 




DTEPR4 


005006 R 




677. 


678» 


1014» 


1018 


1023* 


14561 




DVASAV 


•04634R 




704* 


763* 


768 


774* 


S09» 


e26» 


880* 








1038» 


1117 


111S> 


1119 


1161 


1191 


1238 


DVIDl 


00001 4R 




4521 


622 












ECOUNT 


• ai/)252R 




552» 


10I49* 













787 
1227 



868 
1249 



869 
1278 



979 
1282 



991 

1339 



1006 
1340 



1096 



891« 
1 270 



915» 
1 273* 



922* 

1287 



935 
1289* 



984« 
14031 
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NUAA.PU CROSS REFERENCE TABLE 
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ENOPSS * 


1 04402 




4621 


t 395 
















4B2I 


624 


672 


724 






EPASS * 


004446R 




7 30 


1332 


1 3601 








EPRCNT 


0000 30R 




459l 












ERRLVL 


000 1 7 2 R 




49 1 1 


780 


829 


889 


1115 






1 04410 




482* 










ERRORS X 


1 04404 




482> 


1 006 


1016 


1 101 


1127 


1 249 




0002 )2R 




5331 










ERRWD 


00 4 7 6 R 






956 


960* 


961* 


997 


1001 




1 04400 




4821 


7 33 


862 


1006 


1274 


1 336 


FDBKR4 


005026R 




685* 


686* 




870 


875* 


1 465t 


FDFLAG 


904766R 




735* 


7 39* 


B to* 


913 


951 


1 162 


FDRCDN 


•0t 760R 




645 


865 i 


876 


890 






FDTO 


9021 22R 




855 


8961 










FERR 


Ml 31 4R 




751 


7771 










FERRl 


001 316R 
















FILL 


01 1 1 5 2R 




758 




85 1 


15024 






FTBUF 


•03672R 




1193 












GERR 


0O1554R 






8261 










GETADR 


#05036R 




703 


706 


14754 








GETNXT 


000664R 




6941 


701 


771 








GETPA$z 


10441 3 
















GWBUFt* 


1 044 1 2 




1R9II 












HERR 


001562R 




819 


8271 










INIT 


000022P 




456f 












JERR 


002054R 




f f * 












LINACT 


004670R 




693* 




716 


■JftT* 


1315 


_ 

14171 


LNOONE 


001 254R 






794 


823 


o* 






LOOP 


00471 2R 






764* 


765 


flon* 


821 


677* 


LPCNT 


000166R 




ARQl 


765 


821 


878 






HAP23S * 


1 0441 S 
















HASK 


004630R 




637* 






637 


fclQ* 


1 401 4 


HD s 




GX 














HD ATAB 


000 2 7 2 R 




' 












MDHTAB 


A00 3 1 2 R 


















01 1 ACap 
w I 1 ijwr^ 
















HODN A*"! 


000000 R 




4461 












HODSP 


i/00 1 6 4 R 




457 












MSG s 








1054 










MSGBF0 


005 1 1 2R 






1 500 1 










HSGBF 1 


007 1 3 2R 




1 408 


15^)1 1 










HSGCNT 


004626R 




655* 


1362* 


1 363 


1 365* 


I400i 




HSGHCDc 






4621 


754 


800 


846 






HSGNS X 


104411 




4821 


787 


1 391 








HSGSIZx 




G 


482' 


746 


755 


801 


615 


641 


HSGSS = 


1 044 1 6 
















MSGS X 


104406 




4821 














904622R 






1 397i 










N X TL I N 


• 




'692* 


694 


696 


699* 


14 




OACNV 3 




G 


1 • 












ONEPEC 


•0115flR 




493 


7521 


783 








ONETMT 


001 472P 




494 


8101 










OPEN I 


000000 




447 
473 


453 
4821 


460 


461 


462 


463 


PASCNT 


000026R 




4581 












PASTIM 


W05000R 




690* 


726* 


1330 


14531 







NUAA DEC/Xll SYSTEM 


EXERCISER MODULE 


MACYll 


27(732) 


30-HAY' 


NUAA. PI 1 CROSS REFERENCE 


TABLE - 


- USER ; 


SYMBOLS 




PHYTAB 


O00212R 


5111 


628 


635 


653 


692 


PIRQS > 


000004 


4821 


979 


991 


1223 


1227 


POPSP a 


005726 


4821 










P0PSP2* 


022626 


4821 










PP 


001052R 


713 


7 351 








PPFD 


001604R 


738 


836* 








PFFDl 


0ai624R 


8401 


879 








PPHDH 


001 406R 


741 


7991 


823 






PPHDM2 


001534R 


813 


6201 


831 






PPHns 


001 104P 


7441 


766 








PPHDS2 


001240R 


753 


764' 


764 






PPTY » 


00000r 


482« 










PPTY0 a 


000000 


4821 










PCTY1 X 


• 310(114.1 


t«7t 










PPTY2 « 


•00100 


4P2t 










PPTY3 * 


r00i40 


4821 










PRTY4 = 


900200 


4S2S 










PRTY5 * 


900240 


450 


451 


4834 






PPTY6 « 


900300 


482* 










PRTY7 = 


900340 


4821 










PS » 


1 77776 


482i 










PSW ■ 


177776 


4821 










PUSH s 


905746 


4821 










PUSH2 » 


924646 


4824 










PWRCNTi 


•*•••* G 


4831 


670 








DUES s 


104401 


4631 










RCT0R4 


0050 16R 


681* 


682* 


1125* 


U39 


1134* 


RCVTO 


904772R 


710* 


1039* 


1114* 


1115 


1135* 


RDTO 


e03260R 


897 


919 


11131 






PEC 


902134R 


750 


816 


843 


906* 




RECADP 


9046S0R 


745* 


814* 


S40* 


963* 


964* 


RECCNT 


r04654P 


746* 


747* 


815* 


816* 


641* 


RECD 


904702R 


972 


1422* 








RECON 


902704R 


979 


10351 


1423 


1423 




RECERR 


e03206R 


1059 


10961 








RECINT 


902244R 


908 


9271 








RECRTN 


0047t6R 


896* 


906* 


916 


1078* 


1060 


RECTIM 


004660R 


746* 


749* 


617* 


930 


14131 


REPORT 


900164R 


4661 


954 


1056 


1063 


1083 


RERP 


a02S02R 


957 


962 


983t 






RESTRT 


900532R 


474 


657 


6701 






RETTAB 


•05072R 


1040* 


1079* 


1217* 


1311* 


1325 


RPIRO 


902474R 


972* 


9771 








RRET 


903134R 


1031 


10791 


1065 


1090 


1109 


RSTRT 


900062R 


4741 










RTSSET 


O04176R 


1271 


1273» 


1388 






R4TAB 


005102R 


1310* 


14941 








SRADR 


900052R 


4b8t 










SPAPEl 


900202R 


49b( 










spare; 


9002e4R 


4971 










SPARE3 


900206R 


4981 










SPAPb4 


e002l0R 


4991 










SPOINT 


D00024R 


457« 


674 








SPSIZ T 


000040 


1> 


475 








SPl 


O00016R 


453« 


640 








START 


H00312P 


456 


bJ2i 









694 
1378 



719 
1282 



14601 
14501 



14091 
843* 



1136 
1093 



14381 

1360 
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NUAA.Pl! CROSS REFERENCE TABLE USER SYMBOLS 



STAT 


Bfl0fl20R 


45Sl 














SUM 


B]1162R 


J 397 


15071 












SUHI 


*11246R 


1 367 


1517» 












SVR0 


900032R 


4601 














SVBl 


9dt>034R 


4611 














SVR2 


»00^36R 


462* 














SVR3 


•eO040R 


463t 














SVR4 


00004 2 R 


4641 














SVR5 


9i98S»44R 


465: 














SVR6 


900046R 


4b6t 














SYNC 


»»«174R 


4<»2t 


647* 


648 


946 


1167 


1177 


1307 


SYNCNT 


0e4664R 


9t2» 


942 


950* 


1415* 








TIDONE 


e93736R 


: 195 


12158 












TIEXIT 


003664R 


1 190 


11991 


1208 


1312 








TIHCHK 


004332R 


7IB 


1316 


1335t 


1342 








TIME » 


••»»•• G 


4S2t 


1309 


1345 










TIMELN 


e00i70B 


4901 


748 


749 


760 


806 


817 


856 


TIMKEP 


0042S6R 


859 


923 


1178 


1307* 








TIMTAB 


005d62R 


1 308* 


1309* 


1486* 










TMT 


M3426R 


761 


897 


852 


1152* 








TMTDON 


li>04752B 


861 » 


865 


885* 


1153* 


1442* 






THTINT 


903576R 


1156 


11811 












TMTRtT 


<*04746R 


1 152» 


1 168 


1218* 


1330 


1232 


1357 


1440* 


THTTIM 


P94742R 


760* 


806* 


1174 


1438* 








TPX » 


000000 


482* 














TPAPX » 


000k)20 


4821 














TSYNCT 


M4756R 


953* 


1160* 


1 165* 


1202 


1206* 


14441 




TXADPl 


094722R 


754* 


600* 


846* 


1209 


1310* 


1430* 




TXAnB2 


004726K 


758* 


804* 


851* 


1196 


1197* 


1432* 




TXCNTl 


Ba4732B 


755* 


756* 


801* 


802* 


848* 


849* 


1192 


TXCNT2 


M4736R 


757* 


803* 


850* 


1194 


1198* 


14361 




IXTO 


004022R 


1173 


12371 












TXT0P4 


005022R 


683* 


684* 


1247* 


1251 


1356* 


1463* 




VCTSAV 


D04640R 


707* 


907 


1154 


1266 


1405* 
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WASADR 
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470f 














XFLAG 
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4471 














X4 


90J144R 


1072 


10831 












X5 
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, X 


»tl471R 


15001 
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1556* 











. ABS. l>000et) 000 
P11471 001 



( ERRORS DETECTED: 1 

% DEFAULT GLOBALS GENERATED: 1 

•NUAA,NUAA/SOL/CRF:SYMaDDXCOH,NUAA 
RUN-TI^E: 7 12 1 SECONDS 
PUN-TIME RATIO: 53/20«2.5 
CORE USED: 8K (15 PAGES) 
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1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 IDENTIFICATION 
i 4 ^ " 

15 PRODUCT CODES MAINDEC-1 I -DXNQA-A-D 

16 

17 PRODUCT NAME: OQ-11 DECNET DEC/Xll EXERCISER MODULE 

18 

19 DATES 21-JUN.76 

20 

21 MAINTAINERs DEC/Xll DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN. 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND HAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE Or RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL, 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

38 
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1. ABSTRACT 

THIS TYPE OF DEC/Xll MODULE, REFERRED TO AS DECNET OEC/Xll MODULE, 
WILL DETECT SYSTEM INTERACTION ERRORS WHEN RUN IN CONJUNCTION WITH 
OTHER DEC/XU MODULES EXERCISING OTHER DEVICES ON THE SYSTEM, 
ERRORS ARE REPORTED ON THE SYSTEM CONSOLE AS THEY OCCUR OR AS A 
SUMMARY REPORT, AT THE OPERATORS OPTION, IN ADDITION, THESE 
MODULES MAY BE USED TO VERIFY THE CONDITION OF THE ASSOCIATED 
MODEMS AND COMMUNICATION LINKS, IT WILL ONLY TEST COMMUNICATIONS 
PATHS CAPABLE OF RUNNING DOCMP, THIS MEANs THE DEVICES MUST USE 
NO PARlTYr 8 LEVEL CODE» AND TERMINALS CANNOT BE TESTED, 



NOTE 

THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/XU, 
THE DETAILS OF LINKING, LOADING, AND 
PUNNING MODULES UNDER DEC/Xll CAN BE 
FOUND IN THE DEC/Xll USERS DOCUMENTATION 
AND REFERENCE GUlDE, MAINDEC-1 1 -DXQBA , 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MAINDEC-ll«DXQBCf WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING, 



2, HARDWARE REQUIREMENTS 

THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE, THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS: 



A, 1 PROCESSOR, I COMM, DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES, (MUST RUN FULL DUPLEX) 



B, 1 PROCESSOR, 2 COMM, DEVICES, 2 MODEMS 

C, 2 PROCESSORS, 2 COMM. DEVICES, 2 MODEMS 



UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUT ONLY 2 
LINES Are KEPT RUNNING SIMULTANEOUSLY, 



3, SOFTWARE REQUIREMENTS 

A, THE DEC/Xli MONITOR MUST BE QABK OR A LATER REVISION, 

B. THE NiA? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOR* 
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C. ALL NETWORK MODULES MUST BE CONFIGURED NEXT, 

D. THE N2A? MODULE MUST BE CONFIGURED NEXT.» 

E. ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT. EITHER 
KteA?, KWB7, OR KMX? 

r, ANY OTHER DESIRED DEC/Xll MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER, 



4. PRELIMINARY TESTING 

THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE, THEN A DEC/Xll EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/Xll MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN, IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/Xll MAY BE ATTEMPTED. 



5, PROGRAMMING CONSIDERATIONS 

A, OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN WHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/Xll 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/Xll 
MONITORS AND ALL OTHER MODULES. THE ONLY OTHER EXECPTION IS 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE WILL NOW BE 2 
DIFFERENT DEC/XU MODULES CAPABLE OF BEING RUN, THE OLDER 
HAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYpE REQUIRING A 
COMPLETED COMMUNICATIONS pATH, IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/Xll 
MODULES IN ONE RUN TIME EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE. IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY BE SELECTED FOR THE SAME RUN, 



B. USING THESE DECNET DEC/Xll MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC/Xll 
TOGETHER. ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES. DUE TO DIFFERENT HARDWARE ON EACH SYSTEM, 
RUN TIMES AND END OF PASS TIMES MIGHT VARY CONSIDERABLY. 
THEREFORE IT IS NECCESSArY THAT THESE DECNET DEC/Xll MODULES 
BE EXTREMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS, THIS HOWEVER, MEANS IT SOMETIMES MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING. 

C, DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



* THESE ARE DESCRIBED IN THE DECNET DEC/Xll USER'S GUIDE, 
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BUFFERS REQUIRED TO RUN MANY LINES FROM ONE MODULE ALL AT THE 
SAME TIME, IT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME, IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL RUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LPCNT, THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC I'P TO THE 8TH PAIR, IT WILL 
THEN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC, THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING LINES TOGETHER sO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE, PLEASE 
READ THE DECNET DEC/XU USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS, 

D, THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES, THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED, THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS, 



6. OPERATING PROCEDURES 

A, THE MODULE IS CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
DEC/Xll REFERENCE GUIDE, 

B, CONSOLE SWITCHES ARE STANDARD FOR DEC/XU 

C, THE NIA? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYpE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY, THE OPTIONS 
INCLUDEj 

ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANNED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 

D, THE N2A? MODULE WILL MAKE ANY AUTOMATIC PHONE CONNECTIONS 
USING ANY DN-ll'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS, ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE. 

E, THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE, 

F, THERE ARE MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE; 



(1) LOCATION 164 IS A SWITCH WHICH INDICATES WHETHER OR NOT 

ALL ERRORS SHOULD BE REPORTED As THEY HAPPEN, IF 

LOCATION 164 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 

TOTALLED (ON A LINE BY LINE BASIS); EVERY N PASSES THIS 



NQAA DEC/Xll 
NQAA.Pll 

207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 



SYSTEM EXERCISER MODULE MACYll 27(732) 20-MAY-76 12:27 PAGE 6 SEO 0064 



TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED. THE VALUE OF N IS THE VALUE OF LOCATION 164. 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BE TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VERY GOOD QUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128, 
(LOCATION 166 IS DEFINED NEXT.) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128. IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW. IF THE LINE 
IS OF KNOWN GOOD QUALITY, THIS RESTRICTION MAY BE 
RELAXED, THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS. (LOC 164«0) OF COURSE DEC/Xll KEEPS TOTALS FOR 
THE ENTIRE RUN, REGARDLESS, 

(2) LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED, AN ITERATION IS 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER, 
THE DEFAULT VALUE IS 8. 

(3) LOCATION 170 IS A TIME SCALING FACTOR, THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS. THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS, 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR, 
DEFAULT IS 30 SECONDS. 

(4) LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS, SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR ViCE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING, IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10. 

(5) LOCATION 174 CONTAINS 2 IDENTICAL BYTES FOR USE AS SYNC 
CHARACTERS. THE DEFAULT IS 113226 WHICH Is 2 BYTES OF 
226. IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER. THIS LOCATION IS A DON'T CARE FOR 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

(6) LOCATION 176 IS AN ADDRESS. IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN RECEIVE-ONLY MODE* HE SELECTS THE LINE 
FOR HALF DUPLEX, POlNT-TO-POiNT, SLAVE. (BIT 7 « 1, 
BITS 4,5, AND 6 s 0'S IN THE PHYSICAL LINE TABLE, SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 176 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
SLAVE BY THIS MODULE TO RUN IN RECEIVE ONLY MODE. THIS 
LOCATION MAY BE PATCHED BACK TO A 401 TO RESUME NORMAL 
REC-TMT TESTING, 



NQAA DEC/Xll 
NQAA.PU 

263 
264 
265 
266 
267 
268 
269 
270 
27i 
272 
273 
274 
275 
276 
277 
278 
279 
280 
201 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 



SJfSTEM EXERCISER MODULE MACYl 1 27(732) 20-MAY-76 12:27 PAGE 7 SEO 0065 



(7) LOCATION 200 IS AN ADDRESS, IF THE OPERAlPOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE, HE SELECTS THE 
LINE FOR HALF DUPLEX, POINT-TO-POINT, MASTER (BITS 7 AND 
5 = I'S/ BITS 4 AND 6 s 0'S IN THE PHi;slCAL-LINE TABLE. 
SEE ITEM 6-r-9 BELOW.) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240. THIS l«ILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE, THE 
LOCATION MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING, 



G, LOCATIONS DVA, VCT, BRl AND BR2 MUST BE SET TO PROPERLY MATCH 
THE FIRST DEVICE TO BE TESTED BY THIS MODULE, 



7, ERROR REPORTING 



A, Errors Are either totalled AND PRINTED AS SUMMARIES ON A LINE 

BY LINE BASIS, OR THEY ARE PRINTED AS THISY OCCUR, SEE 

SECTION 6F1, THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS, 



B, DATA ERRORS ARE ACTUALLY REPORTED BY THE NIA? MODULE BECAUSE 
THIS IS WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED, SO ALL DECNET DEC/Xll MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD DEC/Xll DATA COMPARE ERROR MESSAGE 
EXCEPT: 

(1) THE MODULE NAME TYpED IS FFXX* WHERE FF IS FILLED IN TO 
BE THE NAME OF THE DECNET DEC/Xll MODULE WHICH CALLED 
THE NIA? MODULE TO DO THE COMPARE, IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR. 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMpARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED, 

(3) ACSR CONTAINS THE ADDRESS OF THE DECNET DEC/Xll MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED, 

(4) SBADR CONTAINS THE LINE # OF THE DEVICE WHICH HAD THE 
DATA ERROR, 

(5) WASADR CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IN THE MESSAGE THIS BAD CHARACTER WAS. 

(6) THE "SHOULD BE AND "wAS" ITEMS ARE: NORMAL, 



C. OTHER ERRORS ARE REPORTED USING THE NORMAL ERROR CALL IN 
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319 DEC/Xll CSRA AND ACSP AKE STANDARD. STATC CONTAINS A CODED 

320 

321 

322 ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 

323 DEC/Xll MODULES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 

324 WHICH LINE HAD THE ERROR THE OTHER DIGITS CONTAIN THIS CODE: 
325 

326 0010XX REC TIME OUT 

327 0020XX TMT CLOCK LOSS 

328 0030XX HEADER CRC ERROR 

329 0040XX MSG CRC ERROR 

330 0050XX TMT TIME OUT 

331 0060XX TMT NON-EXISTENJ MEMORY 

332 0070XX TMT LATENCY 

333 0100XX REC DATA PARITY ERROR 

334 0110XX REC NON-EXISTENT MEMORY 

335 0120XX REC CLOCK LOSS 

336 0200XX REC FRAMING ERROR 

337 0400XX REC OVERRUN OR LATENCY ERROR 
338 

339 THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 

340 LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE. THE FIRST 

341 TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE NIA? 

342 MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 

343 CONSOLE FOR THE OPERATORS SUBSEQUENT USE, 
344 

345 

346 D, ALL ERRORS HAVE A RETRY LIMIT (SEE SECTION 6F4) WHICH CAN BE 

347 MODIFIED. 
348 

349 

350 E, ON pOWER-FAILf pOwER-UP CONDITIONS/ DECNET DEC/Xll MODULES 

351 WILL DROP THEMSELVES, THIS IS DONE BECAUSE THE PHONE 

352 CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 

353 WILL BE REQUIRED. 
354 

355 
356 

357 8, TEST SEQUENCE 

358 

359 LINES ARE TESTED PY PAIRS IN SEQUENTIAL ORDER, THIS ORDER MAY BE 

360 MODIFIED BY MODIFYING THE pHYSlCAL LINE TABLE. (SEE DECNET 

361 DEC/Xll USER'R GUIDE). THERE ARE SEVERAL TESTING OPTIONS WITH 

362 SLIGHTLY DIFFERENT FUNCTIONS MAKING UP AN ITERATION: 
363 

364 

365 A, POINT-TO-POINT SLAVE. IN THIS CASE THE LINE WAITS TO RECEIVE 

366 A MESSAGE, WHEN IT DOES, IT CHECKS IT, AND THEN TRANSMITS A 

367 MESSAGE BACK. IT WILL pEpORT ERRORS ON EXCESSIVE WAITS. 
368 

369 

370 B, POINT-TO-POINT MASTER, IN THIS CASE THE LINE SENDS A MESSAGE 

371 AND WAITS TO RECEIVE ONE IN RETURN. IT THEN CHECKS THE 

372 RECEIVED MESSAGE, IF IT TIMES-OUT, IT TRANSMITS AGAIN, IT 

373 WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 

374 MESSAGE IS RECEIVED, OR IT TIMES OUT COUNT EQUALS LOCATION 
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172» THE ERROR TOLERATION LEVEL, (SEE SECTION bF4). IT WILL 
THEN REPORT AN ERROR AND BEGIN AGAIN. AFTER THE NUMBER OF 



CONSECUTIVE Tl^E-OUT ERRORS REPORTED EQUALS LOCATION 172, THE 
LINE WILL BE DROPPED. 



C. POINT-TO-POINT SLAVE RECEIVE ONLY, IN THIS MODE THE LINE 
WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 
RECEIVE AGAIN. 



D. POINT-TO-POINT MASTER-TRANSMIT ONLY, IN THIS MODE THE LINE 
JUST TRANSMITS AND THEN TRANSMITS AGAIN , ETC , 



E. MULTl-DROp MASTER, IN THIS MODE, THE LINE WILL SEND A DDCMp 
MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 
TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 
DATA. 

# NOT YET IMPLEMENTED 



F, MULTI-DROP SLAVE. IN THIS MODE, THE LINE WILL WAIT FOR A 
MESSAGE WITH THE MATCHING ADDRESS, THEN IT WILL TRANSMIT A 
MESSAGE. 

« NOT YET IMPLEMENTED 



G. THESE BASIC ITERATIONS ARE REPEATED UP TO THE NUMBER OF TIMES 
IN LOCATION 166, (SEE SECTION 6F2) FOR EACH LINE SELECTED 
FOR TEST, AND THE END-OF-PASS IS DECLARED. 



9. PASS TIMES 



PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT, DIFFERENT BAUD 
RATES, MESSAGE sIZES, AND TESTING MODES ALL GREATLY AFFECT 
THE PASS TIME. BELOW ARE SOME BALL PARK TIMES, BUT ANY ONE 
SYSTEM COULD VARY TREMENDOUSLY FROM THESEj 

-RUNNING ALONE, 1 LINE ON AN ll/0!> AT 9600 BAUD, HALF DUPLEX, 
POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 
SECONDS. 



NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 
WHEN 2 LINES ARE RUNNING, A MONITOR CALL CAN BE MADE AND BEFORE CONTORL IS 
RETURNED TO THE MODULE, THE OtHER LINE MAY CAUSE THE EXACT SAME CALL TO BE 
MADE, IN FACT, WHEN RUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 
4 CALLS TO THE MONItOr FrOM ONE SPOT IN THE, MODULE, BEFORE THE FIRST CALL Is 
RETURNED FROM, THIS IS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 
BFFOrE DOING CALLS, SO THAT WHEN It Is RETURNED tO, It CAN KEEp WHICH 
LINE DID WHAT STRAIGHT, 
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NOTE 2 WHEN RUNNING 2 DQ'S OUT OF THE SAME MODULE WHICH ARE CONNECTED 
TO EACH OTHER* THE LOW ORDER (PER ORDER OF DVC» LOCATION 14) ONE 
SHOULD BE SLAVE, THE HIGHER ORDER ONE SHOULD BE MASTER, FURTHERMORE, 
IF DOING THIS IN FULL DUPLEX, THE TIMEOUT CONSTANT (LOCATION 170) 
SHOULD BE MOD'ED FROM 36 TO 5 SECONDS. (IN OCTAL) 
% 
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*39 


000000' 






lOHOD 


CNQAA >, 1«4,S,5 


440 


•00000' 






MODULf: 


140e0e>NQAA ,1,4,5,5, 


441 








•TITLE 


NQAA OEC/Xtl SYSTEM EXERCISER MODULE 


442 






: 


DOXCOM 


VERSION 4 9/6/75 


445 








.LIST 


BIN 


444 
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445 


000000' 




BEGIN] 






446 


030000' 


059516 04050! 


040 MODNJtHt 


.ASCII 


/itOAA / {MODULE NAME. 


447 


000005' 


000 


XFLAGt 


• BYTE 


OPEN jUSEO TO KEEP TRACK OF WBur" USAGE 


448 
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000001 


ADDPl 


1 *0 


HST DEVICE ADDR, 


449 


000010' 


000004 


VECTORI 


440 


;1ST DEVICE VECTOR. 


450 


900012' 


240 


BRl 1 


.BYTE 


PRTYS'fO }IST BR LEVEL. 


451 


900013' 


240 


BR2i 


.BYTE 


PRTYS*e ;2ND SR LEVEL, 


452 


000014' 


000001 


DVIDl 1 


*l 


;DEVICE INDICATOR 1. 


453 
454 


00001b* 


000000 


SRil 


OPEN 


;SMITCH REGISTER 1 


455 


900020' 


1 40000 


STAT: 


140000 


f STATUS WORD. 


456 


000022' 


000332' 


iNiTt 


START 


; MODULE START ADDR. 


457 


030024' 


000164' 


SPOINT: 


MODSP 


;HODULE STACK POINTER, 


458 


000026' 


000000 


PASCNTt 





;PASS COUNTER. 


459 


000030' 


000000 


ERRCNTt 





; ERROR COUNTER. 


460 


000037' 


000000 


SVR0t 


OPEN 


;LOC TO SAVE R0. 


461 


000034* 


000000 


SVRl: 


OPEN 


;LOC TO SAVE Rl. 


462 


000036' 


000000 


SVR2: 


OPEN 


jLOC TO SAVE R2. 


463 


000040* 


000000 


SVR3t 


OPEN 


jLOC TO SAVE R3. 


464 


000042' 


000000 


SVR4» 


OPEN 


jLOC TO SAVE R4. 


465 


000044' 


000000 


SVR5I 


OPEN 


;LOC TO SAVE R5. 


466 


000046' 


000003 


SVR6« 


OPEN 


;LOC TO SAVE R6. 


467 


000050' 


000000 


CSRAt 


OPEN 


;ADDR OF CURRENT CSR. 


468 


•00052' 




SBADR; 




;AUDR OF GOOD DATA, OR 


469 


000052' 


000000 


ACSR: 


OPEN 


iCONTENTS OF CSR. 


470 


000054' 




WASADRl 




jADDR OF BAD DATA, OR 


471 


000054' 


000000 


ASTATi 


OPEN 


{STATUS REG CONTENTS. 


472 


000056' 


000000 


ASB: 


OPEN 


{EXPECTED DATA. 


473 


000060' 


000000 


AWASI 


OPEN 


{ACTUAL DATA. 


474 


000062' 


090662' 


RSTRTj 


RESTRT 


{RESTART ADDRESS AFTER END OF PASS 


475 








.REPT 


SPSIZ {MODULE STACK STARTS HERE. 


476 








.NLIST 




477 








.WORD 





478 








.LIST 




479 








.ENDR 




480 


000164' 




NODSPt 






481 
482 








.GLOBL 


WAIT, TIME, MSGSIZ, CKHSG, CRCMSG, MSGHED. HSG,PMRCNT 


483 
484 






J 


.GLOBL 


DEVSET 


485 


000 16 4 


003003 


PEPORTt 





)FLAC, IF >t, THEN ERRORS ON RECEIVED MSG'S 


487 










{ARE TOTALLED AND PRINTED EVERY t PASSES 


488 










lir a0, ERRORS ARE ALL REPORTED AS THEY HAPPEN. 


489 


000166' 


£90010 


LPCHTl 


10 


{ITERATIONS PER END PASS CALL 


490 




I»a903& 


TIHELN! 


39, 


;TTHE OUT FACTOR, IN SECONDS 


491 


000172' 


000012 


ERRLVLI 


10. 


{NUMBER OF ERRORS TOLERATED 


492 


000174' 


113226 


SYNC: 


113226 


l3 BYTES OF STNC CHARACTER 


493 


000176' 


001 310' 




ONEREC 


{AOORESS OF WHERE 240 GOES 


494 


000200' 


001606' 




ONETMT 


{ADDRESS OF WHERE 240 GOES 
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495 
496 
497 
493 
499 



000202' 000000 

000204' 000000 

000206' 900000 

000210' 000000 



SPARE! : 

SPARE2: 

SPARE3{ 

SPARE4( 



501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 

532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
5 46 
547 
548 
549 
550 



{ 

{PHYSICAL LINE TABLE. BYTE CONTAINS THE PHYSICAL 
{LINE * FOR THE FIRST LINE TO BE RUN. BYTE 1 WILL BE 
{THE PHYSICAL LINE RUN SECOND, ETC. 

{EACH BYTE IN THE TABLE HAS THE FOLLOWING BIT MEANINGS: 



000212' 
000213' 
000214' 
000215' 
000216' 
000217' 
000220' 
000221 ' 
000222' 
000223' 
000224' 
000225' 
000226' 
000227' 
000230' 
000231 ' 



000232' 
00023 3' 
900234' 
000235' 
0002 36' 
000237' 
000243' 
000241' 
000242' 
000243' 
000244' 
000245' 
000246' 
000247' 
000250* 
000251' 



093 
001 
002 
003 
004 
005 
006 
007 
013 
011 
012 
013 
014 
015 
016 
017 



000 
003 
003 
003 
003 
000 
000 
003 
000 
000 
003 
000 
003 
000 
000 
000 



{BIT 0>3 
{BIT 4 
{BIT 5 
{BIT 6 
{BIT 7 
PHYTABI 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE 
FOR POINT-TO POINT, 1 FOR MULTI-DROP 
FOR SLAVE, 1 FOR MASTER (DERIVED FROM SPl) 
FOR HALF DUPLEX, 1 FOR FULL 
DO NOT TEST, 1 TEST (DERIVED FROM DVIDl) 

1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 



EpRTAB .KEEPS TRACK OF RETRY ERROR COUNTS FOR 



ERRTABi .BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
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SEQ 0071 



551 






SECOUNT TABLE KEEPS 


TRACK OF t OF BAD MSG'S 


552 


000252' 


001* 


ECOUHTI .BYTE 







553 


B0025 3' 


000 


.BYTE 







554 


000254' 


000 


.BYTE 







555 


000255* 


000 


.BYTE 







556 


000256' 


090 


.BYTE 







557 


000257' 


000 


.BYTE 







558 


000260' 


000 


.BYTE 







559 


000261 ' 


000 


.BYTE 







560 


000262' 


«00 


.BYTE 







561 


000263' 


000 


.BTTE 







562 


000264' 


000 


.BYTE 







563 


000265' 


000 


.BYTE 







564 


000266 ' 


000 


.BYTE 







565 


000267 ' 


000 


.BYTE 







566 


000270 * 


000 


.BYTE 







567 


000271 ' 


000 


.BYTE 


e 




56fl 












569 












570 






;«.ulti-dbop station 


ADDRESS TABLE 


571 






JBYTE IS THE 


MULTI 


•DROP STATION ADDRESS 


572 






;FOR LOGICAL LINE 0, 


BYTE 1 IS FOR LOGICAL LINE 1 


573 






J THIS ENTRY ONLY HAS 


MEANING IF CORRESPONDING 


574 






;BYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SET 


575 






fAND BIT 5 OFF 


, IE MULTI-DROP SLAVE TO BE TESTED 


576 


000272' 


000 


HDATABJ .BYTE 







577 


00027 3' 


001 


.BYTE 


1 




578 


000274' 


002 


.BYTE 


2 




579 


000275* 


003 


.BYTE 


3 




580 


000276* 


004 


.BYTE 


4 




581 


000277' 


005 


.BYTE 


5 




582 


000300* 


006 


.BYTE 


6 




583 


000301 ' 


007 


.BYTE 


7 




584 


000302* 


010 


.BYTE 


10 




585 


000303' 


01 1 


.BYTE 


11 




586 


000304* 


012 


.BYTE 


12 




587 


000305* 


01 3 


.BYTE 


13 




588 


000306' 


014 


.BYTE 


14 




589 


000307* 


015 


.BYTE 


15 




590 


000310' 


016 


.BYTE 


16 




591 


000311 ' 


017 


.BYTE 


17 




592 












593 






;HULTI-DROp STATION 


ADDRESS MENU TABLE 


594 






;THIS TABLE INDICATES TO ANY LINE RUNNING AS 


595 






JHULTI-DROP MASTER, 


HHICH STATION ADDRESS TO 


596 






;ATTEMPT TO EXERCISE 


ON THE MULTI-DROP LINE 


597 






;IT ALLOWS UP 


ro 15 


DIFFEPEHI STATIONS TO BE 


598 






(TESTED ON A LINE, 


EACH BYTE HHICH IS NOTb-1 


599 






; INDICATES A STATION 


ADDRESS TO BE TESTED. EACH 


6M0 






J STATION IB TESTED, 


BY THE ORDER OF THE TABLE, 


601 






JUNTIL THE FIRST OCCURANCC OF A -1 (BINARY 111111 


602 






! 






603 


000312' 


J77 


MDMTABI .BYTE 


-1 




604 


000313' 


377 


.BYTE 


-1 




605 


000314' 


377 


.BYTE 


-1 




606 


030315' 


377 


.BYTE 


-1 
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607 


000316' 










.BYTE 






608 


000317' 










.BYTE 






6U9 


000320' 










.BYTE 






610 


000321 ' 










.BYTE 






611 


••00322' 










.BYTE 






612 


00032 3' 










.BYTE 






613 


000324' 










.BYTE 






614 


000325* 










.BYTE 






615 


000326' 










.BYTE 






616 


000327' 










.BYTE 






617 


000330' 










.BYTE 






618 


000331' 










.BYTE 






619 


















6 2^ 
621 


















622 


000332' 


01670;* 


177456 




START! 


MOV 


DVIDl,Re 


jGET DEVICES TO BE TESTED 


623 


0003 3b' 


01)1002 








BNE 


1( 


;ANY ACTIVE? 


624 


000340' 


104403 


000000' 






END«, BEGIN 


J 


625 


000344' 


012705 


000000 ' 




IS: 


MOV 


IBEGIN,R5 


(PREPARE FOR NXT JSR 


626 


000350' 


0>»4567 


000000G 






JSR 


R5,DEVSET 


;G0 ASK FOR PARAMETERS 


627 


000354' 


012767 


000200 


004364 




MOV 


1200, MASK 


;SET UP MASK 


628 


000362' 


012701 


000232' 




2SI 


MOV 


tPHYTABtl6,,Rl 


;GET END OF DEVICE TABLE 


629 


000366' 


006 300 






3lt 


ASL 


R0 


;CHECK EACH BIT 


630 


•00370' 


103003 








BCC 


4t 


;BR IF NOT ON 


631 


000372' 


156741 


004350 






BISB 


MASK,-(R1) 


(SET THIS LINE ACTIVE 


632 


000376' 


000402 








BR 


5$ 




633 


000400' 


1 46741 


004342 




41 : 


BICB 


MA8K,-(Rn 


jCLEAR THIS LINE 


634 


000404' 


105061 


000040 




5t: 


CLRB 


32. (Rl) 


;CLEAR ECOUNT TABLE 


635 


000410' 


020127 


000211' 






CMP 


R1,IPHYTAB-1 


jDONET 


636 


000414' 


001364 








BNE 


3S 


;BR IF NOT 


637 


000416' 


026727 


004324 


000040 




CMP 


MASK, 140 


}BEEN HERE BEFORE? 


638 


000424' 


001406 








BEO 


6$ 


|BR IF YES 


639 


000426' 


012767 


000040 


004312 




MOV 


»40,MASK 


JSET UP MASK 


640 


0004 34' 


016700 


177356 






MOV 


SR1,R0 


;GET SLAVE/MASTER INFO 


641 


000440' 


000750 








BR 


2( 


}C0 SET UP 


642 


000442' 


005201 






6$: 


INC 


Ri 


;GET PHYTAB ADDR 


643 


000444' 


016700 


177335 






MOV 


AODR,R0 


(GET DEVICE ADDR 


644 


00045(1* 


135721 






7t! 


TSTB 


(Rl) + 


(DEVICE ACTIVE? 


645 


000452' 


1 00054 








BPL 


101 


(BR IF NOT 


646 


000454' 


012760 


001000 


000002 




MOV 


•1000, 2(R0) 


(SET DATA TERM READY 


647 


000462* 


005060 


000004 






CLR 


4(R0) 


(CLR ERR REGISTER 


648 


000466' 


012702 


000017 






MOV 


#17, P2 JSEI UP 


TO CLEAR 16 SEC. REGS 


649 


000472* 


1 10260 


000005 




ss: 


MOVB 


R2,5(R0) 


(SET SEC. REG. PTR 


650 


000476' 


052760 


010000 


000004 




BIS 


•10000, 4(R0) 


(ENABLE EA BIT WRITING 


651 


000504' 


042760 


060000 


000004 




BIC 


•60000, 4(Re) 


(CLEAR EA BITS 


652 


000512' 


012760 


000000 


000006 




MOV 


f 0,6(R0) 


(CLR ENTRY 


653 


000520' 


005302 








DEC 


R2 


(POINT TO NXT REG. 


654 


000522* 


002363 








BCE 


se 


(BR BACK TILL DONt 


655 


000524* 


1 12760 


000017 


000001 




MOVB 


»17,1(R0) 


(POINT TO CHAR DEI REGS 


656 


000532* 


1 32760 


000017 


000001 




BITB 


•17,1(R0) 


(IS THERE A OQ-RB OPTION? 


657 


000540* 


001421 








BEG 


101 


;BR IF NOT (H? BITS WON'T 


658 


000542' 


P12733 


000017 






MOV 


•17, R3 


(SET UP A COUNT RtG 


659 


000546' 


1 12760 


000030 


00011)05 


9S! 


MOVB 


•30,5rR0) 


(SELECT SEC PEG 10 


660 


000554' 


005060 


000006 






CLR 


6(R0) 


(CLEAR AN ENTRY 


661 


000560* 


112760 


000034 


0PI0005 




MOVB 


I34.5(R0) 


; SELECT SEC REG I* 


662 


H00"566' 


005e6i() 


000006 






CL-P 


6(P0) 


jCLEAP AN E«TRt 
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SEQ 0073 



663 


»09572' 


005303 






DEC 


R3 


;DONE ENOUGH? 


66 4 


V00S74' 


002403 






BLT 


10t 


;BR OUT IF YES 


665 


000576 • 


105360 


000001 




DECB 


1(R0) 


;ELSE POINT TO NEXT PAIR 


666 


000602' 


000761 






BR 


9$ 


)AN GO CLEAR 


667 


900604' 


962700 


000010 


!<*$ : 


ADD 


!10f R0 


•BUMP R0 


668 


000610' 


020127 


000232° 




CMP 


Hl,tPHITAB«16. 


;D0NE7 


669 


000614' 


001315 






BNE 


7« 


fSK IF NOT 


670 


000616' 


005067 


004122 


Uti 


CLR 


HSGCNT 


:COUNTS WHEN TO DO SUMMARY 


671 


9006 2 2 


012701 


000005 




MOV 


iS.R! 


>SET SYNC FIELD IN FRONT OF MSG 


672 


900626 ' 


01 2702 


000001^^ 






f HSCHCD> R2 


a TO 10 oil E>0 VT O l"\m L njin d 


673 


000632' 


016742 


177336 


12St 


MOV 


SYNC,-CR2) 


fWRITE 2 SYNC CHAR'S 


674 


000636' 


005301 






DEC 


Rl 


;COUNT IT 


675 




091 3 ? 4 






SHE 


12$ 


jSK BACK IF NOT DONE 


676 


000642' 


005767 


000000G 


I3t: 


TST 


WAIT 


•LINES SET UP? 


677 


000646' 


001405 






BEQ 


RE5TRT 


;BR ir YES 

J TEMPORARY RETURN TO MONITOR,... 


678 


000650' 


104407 


000000' 




BREAKS, 


r BEGIN 


679 


000654' 


104407 


000000' 




BREAKt, 


,BCGIH 


•THEN CONTINUE AT NEXT INSTRUCTION. 


680 


000660' 


000770 






BR 


13t 


jWAIT TILL WAIT IS CLEARED BY NET2 



681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
7i)l 
702 
703 
704 
705 
706 
707 
708 
7.»9 
710 
711 
712 
713 
714 
715 
716 
717 
718 



000667' 
000666' 
000673' 
000674' 
000676' 
000702' 
000706' 
000712' 
000716' 
000722' 
0007 26' 
000732' 
000736' 
000742' 
000746' 
000752 ' 
000755' 
000762' 
000766' 

000772' 
000776' 
001002' 
001010' 
P01014' 
001072' 
•01024' 
001030' 
001034' 



005767 
001402 
104403 
005004 
016706 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005057 
005067 
005067 
005067 
005067 
005067 

005067 
005067 
012767 
005067 
026727 
001444 
016700 
010064 
105060 



1 

; 

JTHrOuGH-OUT the program H»NY LOCATIONS ARE REFERENCED 

;OFF OF CR4). THIS IS A MEANS Or KEEPING TWO SETS OF 

; VARIABLES, ONE FOR EACH OF THE ACTIVE LINES. 

;R4 ALWAYS CONTAINS A IF THE PROGRAM IS CURRENTLY 

tREFERENCING LINE OR A 2 IF IT IS REFERENCING 
ILINE 1. 



000000' 

177122 
004216 
004214 
004212 
004210 
004206 
004204 
004202 
004200 
004176 
004174 
004172 
004170 
004166 
004164 

004124 
0041 16 

000212' 003740 
003776 

003730 000232' 

003720 

005020' 

000020 



RESTRT* TST 
BEO 
ENDt 

1$: CLR 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 

CLR 
CLR 
MOV 
CLR 

GETNXTI CMP 
BEO 
MOV 
MOV 
CLRB 



;HAS THERE BEEN A POWER FAIL? 
;CONTINUE IF NOT, 

IfIRST ACTIVE LINE 

>INIT STACK 

;CLEAR ALL EXIT FLAGS 



PWRCNt 
II 

(BEGIN 
R4 

SP0INT,R6 
DR0Pft4 
DR0PR44^2 
DTERR4 
DTERR4'»2 
CRCR4 
CRCR4+2 
RCT0R4 
RCT0R4+2 
TXT0R4 
TXT0R4+2 
FDBiCR4 
F0BKR4<f2 
CHKR4 
CHKR4'f3 



PASTIM jCLR PASS TIME FLAG 

BRKFLG ;CLR FLAG THAT SaYS WE'RE IN BREAK 

IPHYTAB.HXTLIN ;POlllIS TO NEXT LINE TO TEST 

LINACT ;SHOW NO LINES ACTIVE 

NXTLIN.IPHyTAB«16,|D0NE ALL LINES? 

DONE ;BR IF SO 

NXTLIN,R0 ;GET AODR OF NEXT LINE 

R0,CURLIII(R4) jSAVC IT 

20(R01 ;CLEAR RETRY COUNT FOR THIS LINE 
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719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 



001040' 


005267 


003704 






INC 


NXTLIN 


jBUMP FOR NEXT TIME 


001044' 


1 1 1000 








MOVB 


(R0),R0 


;GET PHYSICAL LINE BYTE 


001046' 


002362 








BGE 


GETNXT 


;BR BACK IF BIT 7 NOT ON 


001050' 


016701 


176732 






MOV 


ADDR.Rl 


;SET UP TO CALC ADDR 


001054' 


004767 


004106 






JSR 


PCGETADR 


;G0 CALC ADDR 


901063' 


£10164 


304752' 






HOY 


Ri ,DVMAVrR4) 


•SAVE DVA FOR THIS tINE 


001064' 


062701 


000002 






ADD 


• 2,R1 


;POINT TO TMT CSR 


001070' 


010164 


004762' 






MOV 


R1,THTSAV(R4) 


;SAVE VALUE 


001074' 


016701 


176710 






MOV 


VECTOR, Rl 


jSET OP TO CALC VECTOR ADDR 


001100' 


004767 


004052 






JSR 


PCGETADR 


;G0 CALC 


•01104' 


010164 


004756' 






MOV 


R1,VCTSAV(R4) 


;SAVE IT 


031 1 10' 


005267 


003675 






INC 


LINACT 


;SHOW A LINE'S RUNNING 


001114' 


005064 


005034' 






CLR 


LO0P(R4) 


;CLEAR ITERATION COUNT 


•01120' 


005064 


005114' 






CLR 


RCVT0(B4) 


;CLR REC TIME OUT COUNT 


•01124' 


032700 


000020 






BIT 


t20,RO 


;MULTI DROP OR NOT? 


001130' 


•01377 








BNE 


MD 


;BR IF IT IS 


001132' 


000427 








BR 


PP 


;BP IF NOT TO P TO P 


001134' 


005757 


003652 




S 

DONE: 


TST 


LINACT 


;ANY LINES RUNNING? 


•01 140' 


001402 








BEQ 


1« 


}BR IF NO 


001 142' 


000167 


003302 






JMP 


TIMCHK 


;iF YES GO CHECK FOB TIME OUT 


001146' 


012701 


000212' 




1$: 


MOV 


IPHYTAB.Rl 


jMUST CHECK IF MAYBE ALL LINES DROPPED 


•01 152' 


105721 






2ti 


TSTB 


(RD* 


;IS THIS LINE STILL SELECTED? 


•01154' 


100405 








BHI 


31 


;BR OUT IF YES 


•01156' 


022701 


000232' 






CMP 


tPHYTABtl6.,Rl 


;CHECKED ALL 16? 


•01162' 


001373 








BNE 


21 


;BR BACK IF NO 


•01164' 


104403 


000000' 






ENDI, BEGIN 


; 


001 17i9' 


012767 


000001 


003724 


3(: 


MOV 


llrPASTIH 


;SHOW IT IS TIME FOR ENDPAS 
















;FOR BREAK LOOP 


•01 17o' 


005757 


003716 






TST 


BRKFLG 


;ARE we IN A BREAK LOOP? 


•01202' 


001002 








BNE 


4$ 


;BR IF WE ARE 


•01204' 


000167 


003354 






JMP 


EPASS 


;G0 DO END OF PASS 


•01210' 








t 

4f i 








90 1 3 1 ' 


1 aiiflri 








EXITS 




JEXIT TO MONITORa MODULE WAIT FOR TNTFRUPT 










;POINT 


TO POINT 






•01212' 


012764 


000001 


005110' 


PPi 


MOV 


ll.FDrLAG(R4) 


;SAY WERE FULL DUPLEX 


•01220' 


032700 


000100 






BIT 


1100, R0 


;HALF OR FULL DUPLEX? 


•01224' 


001402 








BEO 


1« 


;BR IF HALF 


001226' 


900167 


000466 






JMP 


PPFD 


;JMP TO FULL DUPLEX ROUTINE 


•01232' 


005064 


0051 10' 




Iti 


CLR 


FDFLAG(R4) 


;CORRECT FLAG CAUSE WERE NOT FD 


•01236' 


032700 


000040 






BIT 


t40,R0 


; SLAVE OR MASTER? 


•01242' 


001135 








BNE 


PPHDH 


;BR IF MASTER 










;POINT 


TO POINT, 


, HALF DUPLEX, 


SLAVE 


•01244' 








PPHDSt 








•01244' 


016454 


004756' 


004772' 




HOV 


AMSGBr(R4),PECADR(R4} (SET UP INPUT AREA 


•01252' 


016764 


000000G 


004775' 




MOV 


MSGSIZ,RECCNT{R4) »SET UP COUNT 


•01260' 


062764 


000012 


004776' 




ADD 


tl2,RECCNT(R4) 


;CORRECT FOP HEADER AND CRC 


001266' 


016764 


176676 


005002' 




MOV 


TIMELN,RECTIM(R4) >HOW LONG TO WAIT 


•01274' 


•66764 


175670 


005002' 




ADD 


TIMELN,RECT1M(R4) jDOUBLE IT 


•01302' 


•04767 


000726 






JSR 


PCREC 


;G0 RECEIVE DATA 


■01306' 


000456 








BR 


FERR 


;BR TO ERROR ROUTINE 


001310' 


•00401 






ONERFCt 


BR 


1« 


;MAKE THIS A NOPs240 TO 
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SEQ 007$ 



775 


001 31 2 ' 


000424 






776 


•01314 ' 


PI 2764 


000000G 


005044 ' 


777 


C01322' 


•16764 


0000O0G 


005054 ' 


778 


•01330' 


062764 


00001 2 


005054' 


779 


•0133b' 


004767 


002700 




780 


•01 342' 


01 6764 


176622 


005064 * 


781 


•01 350' 


004767 


002054 




782 


•01 354' 


000425 






783 


001 356 ' 


042774 


000400 


004762 ' 


784 


•Ml 364' 


005264 


005034 ' 




785 


•01370' 


026764 


1 76572 


005034 * 


786 


•01376' 


003322 






787 


00I40k<' 


005 367 


003406 




7Ae 


•01 404 ' 


016403 


004752 ' 




789 


031 410' 


00501 3 






790 


•tfl 41 2 ' 


042763 


00047 1 


000002 


791 


•01 420' 


005063 


000004 




792 


001 42 4 ' 


000167 


177364 




793 










794 










795 


001 43»i' 


042774 


000400 


004762' 


796 


•01436' 


012703 


177777 




797 


•ai442' 


000401 






798 


•01444' 


005003 






799 


•01 446' 


016401 


005020' 




800 


B01452' 


1 05261 


000020 




601 


•01456' 


1 26167 


000020 


1 76506 


802 


•01464' 


002003 






803 


•01 466' 


005703 






804 


001 470' 


001707 






805 


•01472' 


000734 






806 


•01 474' 


1 4271 : 


000200 




807 


•01500' 


005264 


005124' 




808 


001 504 ' 


t 0441 1 


011 306 ' 


000000 ' 


809 


001512' 


005767 


003406 




810 


001516' 


001402 






811 


001520' 


005004 






812 


001522' 


000402 






81 3 


001524' 


01 2704 


000002 




814 


•01530' 


005 364 


005124' 




815 


001 534 ' 


900721 






816 










817 










818 










819 










820 


•01536' 








821 


001536' 


012764 


000000G 


005044' 


822 


D01544' 


016764 


000000G 


005054' 


823 


•01552' 


062764 


000012 


00505 4 ' 


824 


001560' 


004767 


002456 




825 


•01564' 


016764 


176400 


005064' 


826 


001572' 


004767 


001632 




827 


•01576' 


000434 






828 


00160^' 


042774 


000400 


004762' 


829 


001606' 


;0040i 






8 30 













BR 


PPHDS2 


1 1 1 


MOV 


f MSGHCDr TXADrKR 






uftrCT 7 . Tyf*MT 1 IDA 




ADD 






JSR 












JSR 








dcpr"'' 




BIC 




PPHDS2 1 


INC 


T AAD f n A 1 
uUUr I / 




CNP 






BCT 


PPHDS 


LNDONE 1 








MOV 






clr 


( R3 ) 






1 47 I # 2 1 H J i 






4(1*3 ) 




TMD 


GETNXT 


DERR! 


BIC 






MOV 






BR 




F°ERR| 


CLR 


R3 


FERRl 1 


MOV 


CUItLiN ( R4 ) f Rl 




INCH 






CMPB 






BGC 


DROP 




TST 


R3 




BEQ 


ONCREC 




BR 


PPHPS2 


DROPi 


BICB 


1 300 r ( Rl ) 




INC 


DR0PR4 ( R4 ) 




MSGHl 


ADROPf BCGXN 




TST 


DR0PR4 




BEO 


18 




CLR 


R4 




BR 


2S 


1(1 


MOV 


«2#P4 


2(: 


DEC 


DR0PR4(R4) 




BR 


LNDONr 



;D0 ONE-KAY-IN ONL)() 

ICCT HtSS ADR 
, IGET MSG SIZE 
jCORRf-CT FOR HEADER A«lD CRC'S 
:G0 GET CLEAR TO SEND 
) ;GIVE 'EM 1/2 MINUTE 

;G0 TRANSMIT 
,BR TO ERROR ROUTINE 

;KILL REO TO SEND 
jCOUNT AN ITERATION 
;DONE ENOUGH 1 
;M0, GO DO ANOTHER TIME 

;CET DEVICE ADDRESS 

jKILL RECEIVER SIDE 
jKILL THT SIDE 
,KILL TRANSMITTER TOO 
;YES DO NEXT LINE 



(KII-L REq TO SEND 
;SET FLAG FOR HHICH RETURN 

;SET FLAG FOR WHICH RETURN 
>GET LINE I ADDR 
jCOUNT AN ERROR 
;T00 MANY ERRORS? 
;BR IF YES 

jOO A TMT OR DO A REC? 
;BR IF TMT 
;C0 TRY AGAIN 
•DROP THE LIME FROM TEST 
jSEE MOTE 1 IN FRONT OF LISTING 
;ASCII MESSAGE CALL WITH COMMON HCADLR 



IPOINT TO POINT HALF DUPLEX MASTER 



PPHDMl 

MOV 
MOV 
ADD 
JSR 
MOV 
JSR 
BR 
BIC 
ONETMT: BR 



iNSGHE0>TXADRl(R4) 
HSGSIZ,TXCnT1(R4) 
I12.TXCWTI(R4) 
PCCTS 

IIMELN,THTTIMCR4) 

PC, TMT 

GCRR 

I400>»TMTSAV(R4} 
It 



jGET MSG ADDRESS 
jCET MSG SIZE 

;CORRECT FOR CRC ANU HEADER 

jGO GET CLEAR TO SEND 

;GIVE 'EH 1/2 MINUTE 

;G0 TRANSMIT 

jERPOR RETURN 

;KILL REQ TO SEND 

;MAKE THIS A NOP»240 FOR ONE 

jNAY OUT, TMT ONLY. OTHER SIDE 



NQAA DEC/Xll SYSTEM EXERCISER MODULE 
NOSA.Pll 



f>31 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 

e4'» 

848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
RBI 
882 
883 
884 
885 
836 



001610' 
•01612' 
001620' 
M01626' 
'>01634' 
001642' 
001646' 
•01650' 
•01654' 
•01662' 
001664' 



001670' 
•01676' 
0ai7K»2' 
•01706' 
•01714' 
001716' 



•01720' 
•01724' 
901726' 
•01734' 
•01740' 
•01746' 
•01754' 
•01762' 
•01766' 
•01770' 
001772' 

002000' 
•02006' 
•02014' 
•02020' 
•02022' 
•02024' 
•02030' 
002034' 
002040' 
•02044' 

002050' 
•02056' 



002060' 
•02064' 
002066' 
•02072' 
002076' 



000417 
016464 
016764 
062764 
016764 
004767 
00041 3 
005264 
026764 
003325 
000167 



042774 
016401 
195261 
126167 
002267 
030754 



032700 
001003 
012764 
304767 
016464 
016764 
062764 
004767 
000472 
000433 
012764 

016764 
062764 
004767 
000455 
000412 
012700 
016701 
066701 
012702 
00016 7 

012764 
104400 



905764 
001020 
005264 
104407 
IP4437 



004766' 004772' 
000<*00G 004776' 
000012 004776' 
176330 005002* 
000366 

005034' 

176306 005034' 



00040H 004762' 

005020' 

000020 

000020 176256 



000040 

177777 005110' 
002302 

004766' 004772' 
000000G 004776' 
000012 004776' 
000246 



000000G 005044' 

000000G 005054' 
000012 005054' 
001410 



002222' 

176134 

176130 

000000 

002324 

000001 005074' l$t 



005150' 
000000' 
000000' 



MACYU 
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;0F LINE MUST DO ONE KAY IN 




BR 


PPHDM2 


iUSeO FOR ONE WAY OUT ONLY 


IS: 


MOV 


AMSGBF(R4),RECADRCR4) 


;SET UP INPUT AREA 




MOV 


MSGSlZf RECCNT(R4} 


jSET UP COUNT ■ 




ADD 


H2.RECCNTCR4) 


)CORRECT FOR HEADER AND CRC 




MOV 


TIMELN,RECTIH(R4) 


;GIVe EM 1/2 MINUTES 




JSR 


PC, REC 


>G0 RECEIVE 




BR 


HERR 


;ERROR RETURN 


PPHDMIt 


INC 


L00P(R4) 


;COUNT AN ITERATION 




CMP 


LPCNT,LO0P(R4) 


;DONe ENOUGH? 




BGT 


PPHDM 


jBR IF NOT 




JMP 


LNDONE 




GEFRl 


BIC 


I400»»TMTSAV(R4) 


;KILL REO TO SEND 


HERRI 


MOV 


CURLIN(R4),R1 


;GET LINE • ADDRESS 




INCB 


20(R1) 


jCOUNT AM ERROR 




CMPB 


20CRn,ERRLVL 


;T0O MANY ERRORS? 




BGE 


DROP 


jBR IF YES 




BR 


PPHDH2 


;G0 TRY AGAIN 



POINT -TO-POINT FULL DUPLEX 



ISl 

PPFDl : 



BIT 


•40, R0 


JMASTER OR SLAVE? 




BNE 


IS 


JBP IF MUSTER 




MOV 


1177777, FDFLAG(R4) JSHOH ITS SLAVE 




JSP 


PCCTS 


;G0 GET CLEAR TO SEND 




MOV 


AMSGBF(R4),RECADR(R4) >GET INPUT AREA 




MOV 


HSCSIZ,PECCNI(R4) jSET UP COUNT 




ADD 


•12,RECCHT(R4) 


jCORRCCT FOR CRC AND HEADER 




JSR 


PC, REC 


|G0 GET RECEIVING STARTED 




RR 


JERR 


;REC ERROR RETURN 




BR 


FDRCDN 


I REC DONE 




MOV 


|MSGHFD,TXADR1 (R4) ;FULL DUPLEX RETURN FROM REC 






;GET TMT ADDH 




MOV 


MSGSlZfTXCNTl (R4) jGET TMT COUNT 




ADD 


•12,IXCNTl (R4) 


;CORRECT FOR HEADER AND CRC 




JSR 


PC, TMT 


;G0 TMT 




PR 


JERR 


;TMT ERROR RETURN 




BR 


It 


;GOOD TMT DONE RETURN 




MOV 


|FDTO,R0 


;FULL DUP RETURN, SET UP FOR TIME 


OUT 


MOV 


TIMELN.Rl 


jGIVE EM I MINUTE 




ADD 


TIMELN,R1 






MOV 


i0,R2 


;SHOW ITS A REC MAIT 




JMP 


TIMKEP 


;G0 WAIT 




MOV 


•1,THTD0N(r4) 


;SHOW TMT IS DONE 




EXITt 




;EXIT TO MONITOR. MODULE WAIT FOR 


INTERUPT. 


TST 


TMTnON(p4) 


;IS TMT DONE YET? 




BNE 


4S 


;BP IF YES 




INC 


FDBKR4(B4) 


:SEE NOTE I In front of listing 




BREAKS 


BEGIN 


;TEMP0RARY RETURN TO MONITOR.... 




BPEAKS 


BEGIN 


;THEN CONTINUE AT NEXT INSTRUCTION 
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SEQ 0077 



887 


•02102' 


005767 


003042 




888 


002106' 


901402 






889 


902110' 


905004 






890 


»02112' 


000402 






89i 


S02ii4' 


912704 


000002 




892 


902120' 


005)64 


005150' 




893 


902124' 


000755 






894 


■92126' 


9tf5264 


905034' 




S9S 


992132' 


026764 


i76e3» 


005034' 


896 


902140' 


003277 






897 


902142' 


042774 


000400 


004762' 


898 


902150' 


000167 


177224 




S99 










900 










901 










902 


902154' 


012764 


000001 


005074' 


903 


902162' 


012764 


177777 


005014* 


904 


902170' 


016401 


005020' 




905 


902174' 


105261 


000020 




906 


902200' 


126167 


000020 


175764 


907 


902206' 


002724 






908 


902210' 


042774 


000400 


004762* 


909 


902216' 


000167 


177252 




910 










911 










912 










913 


902222* 


01 2764 


002154' 


005040* 


914 


902230' 


000167 


000650 




915 













TST 


rDBKR4 




BEQ 


21 




CLR 


R4 




BR 


3$ 


2$; 


H0¥ 


12, P4 


3t; 


DEC 


FDBKR4(R4) 




BR 


FDRCON 


4$l 


INC 


LO0P(R4> 




CKP 


LPCNT,L00P(R4) 




BGT 


PPFDl 




BIC 


I400,«THTSAV(R4} 




JHP 


LNDONE 



,BR AND NAIT SOME MORE 
sCOt'ST AM ITERATION 
;DONE ENOUGH 
;N0> GO 00 MORE 

;KILL REQ TO SEND 



; 

;FD TMT ERROR 
JERRI MOV 

MOV 

MOV 

INC8 

CHPB 

BLT 

BIC 

JHP 

} 

;FULL DUPLEX RECEIVER TIMEOUTS COME HERE 

FDTO: MOV ijerr,recrtn(r4) ;set up correct return 

JMP RDTO »G0 report REC TIME OUT 



•1»TMtOON(r4) jDON'T BOTHER WAITING FOR TMT 
•177777, AB0RI(R4) ;TELL INT ROUTINES TO GIVE UP 

CUBLm(R4),Rl jGET CURRENT LINE INFO 
20(Rn ;COUNT ANOTHER ERROR 

20(Rn.ERRLVL ,-TOO MANY ERRORS? 
rORCDH ;N0 GO TRX AGAIN 

•490,»TNTSAV(R4} >KILL REQ TO SEND 

DROP ;GIVE UP ON THIS LINE 



NOAA DEC/Xll SYSTEM EXERCISER MODULE 
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916 






917 






918 






919 






920 












922 






923 


902234* 


012664 


924 


902240* 


016401 


925 


902244' 


012711 


976 


902250' 


960421 


927 


902252' 


1167U 


928 


902256' 


905064 


929 


002262' 


916403 


930 


00 2266 


005464 


931 


902272' 


005002 


932 


902274' 


032713 


933 


902300' 


001402 


934 


1)02302' 


012702 


935 


002306' 


112763 


936 


902314' 


150263 


937 


902320' 


016463 


938 


902326' 


11276) 


939 


902334' 


016763 


940 


902342' 


11276) 


941 


902350' 


012763 


942 


002356* 


042763 


943 






944 


002364' 


150263 


945 


902370* 


016467 


946 


902376' 


1 94413 


947 


902402* 


006 367 


948 


902406' 


15276) 


949 


992414' 


15676) 


950 


902422' 


01676) 


951 


9024)0' 


00S764 








953 


90243b' 


012713 


954 


002442' 


016402 


955 


902446' 


062702 


956 


902452* 


010207 


957 


•02454* 


012700 


958 


•02460* 


016491 


959 


•02464* 


012702 


960 


902470* 


012713 


961 


902474* 


900167 


962 






96) 






964 






965 


902500' 


000403 


966 






967 


002502' 


000004 


968 






969 


•02510' 




97J 






971 


902510' 


990904 



005040' 
904756' 
002500' 

175534 
005014' 
904752' 
004776* 

000004 

000004 

000001 

000005 

004776' 

090011 

175634 

000012 

004009 

177752 

000005 

004772* 

005160' 

002556 

000020 

002544 

092534 

005110' 

000041 

005040' 

000004 

003104' 

005002* 

000909 

000041 

001674 



} 

> SUBROUTINE TO 
;CALLED WITH A 
{AFTER SETTING 
;ANO DVASAVCR4) 
;2 SYTSe PAST C 
1 



RECEIVE DATA 
JSR PC, REC 

LOCATIONS RECADR(B4),RECCNT(R4),RECTIM(R4),VCTSAV(R4), 
. RETURNS ON ERROR OR RETURNS 
ALL IF SO ERROR 



REC» 


MOV 


(R6)+,RECPTNCR4);SAVE RTN ADDR 




MOV 


VCTSAV(R4},R1 


•GET VECTOR ADR 




MOV 


IRECINT,(R1) 


{MOVE IN INT, ROUTINE ADR 




ADD 


R4,(R1)+ 


{CORRECT FOR WHICH LINE 




MOVB 


BR1,(R1) 


fMOV IN PRIORITY LEVEL 




CLR 


AB0RT(R4) 


;CLEAR ABORT FLAG 




MOV 


DVASAV(R4),R3 


;GET DEVICE ADDRESS 




NEG 


RECCNTCR4) 


jGET RIGHT FORM OF COUNT 




CLR 


R2 


(ASSUME USING PRI REGS. SET BUMPER TO 9 




BIT 


14, (R3) 


;ARE HE USING PRI OR SEC REG? 




BEO 


IS 


;BR IP PRI, BUMPER ■• 




MOV 


14, R2 


;SET BUMPER TO 4 IF SEC. 


000005 IS: 


MOVB 


tl,5CR3) 


JPOINT TO RXCC-P 




BISB 


R2,S(R3) 


;BUMP TO WHICH SET 


900006 


HOV 


RECCNT(R4),6CR3) 


jWRITE RXCC-P 


090005 


MOVB 


•11,5(R3) 


jPOINT TO SYNC REG 


090006 


MOV 


SyNC,6CR3) 


;WRITE IN SYNCS 


000005 


MOVB 


il2,5(R3) 


•POINT TO HISC REG 


000906 


HOV 


14009, 6(R3) 


;SET CHAR SIZE TO 8 BITS 


000004 


BIC 


1177752, 4(R3) 


J POINT TO RXBA-P 








(AND CLEAR ERR BITS FOR REC 




BISB 


R2,5(R3) 


jBUHP TO PRI OR SEC 


092562 


HOV 


RECADR(R4},ADR 


(PREPARE FOR GETPA CALL 




GETPAI 


, ADR 


;GET PHYSICAL ADDRESS FROM 16-BIT ADR 




ASL 


EA 


(LINE UP EA BITS 


090005 


BISB 


•20,5(R3) 


(PUT IN WRITE ENABLE BIT 


000005 


BISB 


EA,5CR3) 


(PUT EA BITS IN REG 


900006 


HOV 


PA,6(R3) 


(WRITE ALL 18 BITS 




TST 


FDFLAG(R4) 


(FULL DUPLEX? 












HOV 


141, (R3) 


(KICK OFF REC 




HOV 


RECRTN(R4),R2 


(GET RETURN ADDRESS 




ADO 


14, R2 


(FD RETURN 




HOV 


R2,R7 


(RETURN 


2*i 


HOV 


|RDTO,R0 


(RETURN ADDR 




MOV 


RECTIH(R4),R1 


(HOW LONG TO WAIT 




HOV 


t0,R2 


(SHOWS ITS A REC WAIT 




HOV 


141, (R3) 


(KICK OFF REC 




JMP 


TIHKEP 


(EXIT TO TIMKEP AND WAIT 


IrECEIVER INTERRUPT ROUTINE 




RFCTNTJ 


BR 


IS 




090<409' 

iss 

099900' 


PIRQI, 


RECDNt4, BEGIN 


( RTI AND QUEUE UP TO CONTINUE AT 








PIPQt, 


RFCDN, BEGIN 


{ RTI AND QUEUE UP Tu CONTINUE AT 
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SEO 9079 



































97« 
















97^ 










J 






976 


1(02516' 








HECDN : 


CLR 


h4 


977 


902520 * 


vW^V ^ 








BR 


1 1 








000002 






r?" 


• 2f R4 


Q7Q 


01725 26 










CUB 


• DVASA V( R4 ) 


OSfl 




005764 


00501 4 






TST 


ABORTf R4 ) 


99 1 




I 401 










2t 


982 




1 044(40 












983 


002542 


005064 


0051 1 4 




2 9 S 


CLR 


RCVT0(R4) 


984 


# 


005064 


005222 ' 






CLR 


RCTTAB(R4) 


985 


00255 2 


004767 


000476 






JSR 


PC#CHP(REC 


986 


002556 * 


005767 


000000C1 




3 S 1 


TST 


CKHSG 


987 


002562 ' 


001 420 








BCQ 


61 




00256 4 ' 


005264 


005 1 5 4 






I MC 


CHKR4 (R4 ) 


989 


0025 70 ' 


1 1^4407 


000000 * 






BREAKS 


BEGIN 


990 


c ^ • 




000000 






BREAKS 


BEGIN 


99 1 


002600 




002 350 








CHKR4 






0B 1402 








nro 


** 


993 


002606 ' 










CtiR 




994 




00040 2 








BR 


58 




0026 1 2 ' 




00000 2 




4S 2 




1 2 f H4 


996 




005 364 


005 154' 




5 S I 


DEC 






00262 2' 












3t 


998 


002624 ' 


01 6402 


004766 ' 




6S 1 


HOV 


AMc/TBrrDAi ttt 








17 7 7 76G 


000006 






no\3^ i 1 \ 1^ X 3 


aaa 


aa7K1fc' 










BFQ 


7 1 


1001 












Ter 


REPORT 


1 002 




f ^7*7 








BNF 


X5 


1 003 






003000 


75200 




MOV 


t003000« A8TAT 


1 004 




000 466 








BD 


RECERR 


1 005 
















1 006 


^ . , 


lo7fc7 


005020 


0000 40 




MOVE 


9CURLIN(R4) « 9i 


1 007 


00266 4 






000032 






• 177760* 9$ 


1 008 


002672 * 


005767 


175266 






TST 


REPORT 


1 009 




001 403 










8t 


1010 






1 00000 


0000 1 6 




BT« 


#100000* 91 


1011 


002706 


062702 


0000 1 






inn 
Snv 


I10>R2 


1012 






0000 1 








R3f 98+2 




' , 


^04567 








J« 








000000 








BEGIN 




1 aiK 


»i»777*' 








9S S 








002726 ' 


000000 












1017 


0027 30 ' 










BR 


X4 


1018 


0027 32' 


066702 


000000G 






ADD 


N5GSIZ« R2 


1019 


0027 3fc ' 


1 76722 


000000G 






CMPB 


CRC^SGf ( R2 ) * 


1 020 


002742 ' 


00102S 








BNC 


CEB 


1021 


002744' 


1 26722 


000001 G 






CMPB 


CRCMSG'fl r (R2)* 


1022 


002750' 


001022 








BNE 


CER 


102 3 


002752' 


062764 


000002 


005040* 




ADD 


I2,RECRTN(R4) 


1024 


002768' 


095061 


005222* 




rretj 


CLR 


RETTAB(R4) 


1025 


002764' 


000174 


005040' 






JMP 


SRECBTH(B4) 


1026 










> 






1027 










> 







;SHOt« WE'RE LINE 

;SHOM WE'RE LINE 1 
•SHUT BEC UP 
jGIVE UP7 
;BB ir NOT 

;EXIT TO MONITOR, MODULE WAIT FOP INTERUPT. 
IrESET TIME OUT RETRY COUNT 

,kill impending timeout 
;check for rec, how errors 
i is check msg routine busy? 
|br if not 

;see note 1 in front of listing 

ItEMPORABY BETURN to MONITOR..., 
;THEH CONTIHUE AT NEXT INSTRUCTION. 



;GET REC DATA 
•IS HEADER CRC OK? 
;BB If OK 
;REPORT ERR N0W7 
;BR IF LATER 
(SHOW ERR TYPE 



;GET LINE * 

;LEAVE ONLY LINE BITS 

;REPORT BAD DATA? 

;BR IF YES 

;SCT FLAG TO CKHSG 

;GET ADOB OF MSG 

;G0 CHECK MSG 



;BA0 RETURN 

jPOiNT II 10 MSG CRC, 

;CHECK 1ST CBC BYTE 



DATA HAS OK 



;CHECK SECOND 
;GOOD RETURN 

;KILL IMPENDING TIMEOUTS 
;AND GO BACK 



NOAA DEC/XU SYSTEM EXERCISEB MODULE 



NQAA.Pl 1 






1028 


002770' 


005767 


175170 


1029 


002774' 


001001 




1030 


002776' 


000770 




1031 
1032 


003000' 


117402 


005020' 


1033 


003004' 


P42702 


177760 


1034 


00301.)' 


105262 


000252' 


1035 


003014' 


000761 




1036 








1037 








1038 


903016' 


005767 


175142 


1039 


003022' 


f0n66 




1040 


003024' 


012767 


004000 


1041 


003032' 


117402 


005020' 


1042 


003036' 


042702 


177760 


1043 


003042' 


050267 


175006 


1044 


003046' 


005264 


005134' 


1045 








1046 


003052' 


104404 


000000' 


1047 








1048 


003056' 


005767 


002052 


1049 


003062' 


001402 




1050 


003064' 


005004 




1051 


003066' 


000402 




1052 


003070' 


012704 


000002 


1053 


003074' 


005364 


005134' 


105 4 


003100' 


000167 


177654 


1055 








1056 








1057 








1058 


Hd3t04' 


^12764 


177777 


1059 


003112' 


004767 


000136 


1060 


003116' 


005264 


005114' 


1061 


003122' 


026467 


005114' 


1062 


003130' 


001042 




1063 


003132' 


017467 


004752' 


1064 


003140* 


005074 


004752' 


1065 


003144' 


ei6467 


004752* 


1066 


003152' 


016401 


005020' 


1067 


003156* 


111102 




1068 


003160' 


042702 


177760 


1069 


003164' 


062702 


001000 


1070 


003170' 


010267 


174660 


1071 


003174' 


005264 


005140' 


1072 








1073 


003200' 


1 04404 


000000' 


1074 








1075 


003204' 


005767 


00173(< 


1076 


003210' 


001402 




1077 


003212' 


005004 




1078 


003214' 


000402 




1079 


003216' 


012704 


000002 


1080 


003222' 


305364 


105140' 


1081 


003226' 


305064 


005114' 


1082 


003232* 


000174 


005040' 


1^83 









MACYll 


27(732) 


20-MAY-T6 12t27 


PAGE 22 


X4i 


TST 


REPORT 


;BEPOPT EBB NOW OR LATER? 




BNE 


X5 


;BR IF LATER 




BB 


RRET 


jOTHEBHISE RETURN 


X5i 


HOVB 


»CURLIN(R4},R2 


jCET CURRENT LINE 1 




BIC 


I177760»R2 






INCB 


EC00HT(R2) 


jCOUNT AN ERROR FOR ThAT LINE 


; 


BB 


BRET 


;AND RETURN 


CEBI 


TST 


REPORT 


; REPORT NOW OB LATEB? 




BNE 


X5 


fBB IF LATEB 




NOV 


1004000, ASTAT 


; INDICATE ERROR TYPE 


BFCFPB 


t MOVS 


•CUBLtNf B*) ,R? 


tGENEBATE LINE • 




BIC 


1177760, B2 






BIS 


B2, ASTAT 


;ADD IN LINE • 




INC 


CRCR4(R4) 


;SEE BOTE I IN FRONT OF LISTING 




ERROBt 


BEGIN 


jCRC ERROR 




TST 


CRCB4 






BCO 


IS 






CLR 


R4 






BR 


2S 




tc 


MOV 


• 2,B4 




2$: 


DEC 


CRCR4(R4) 






JMP 


BRET 


;BAD RETURN 


;BEAD 


TIME OUT 


ROUTINE 




BDTOl 


HOV 


1177777, AB0RT(R4)ITELL INT BOUTINES TO GIVE IP 




JSR 


PCrCHKBEC 


JCHECK FOR REC HDH ERRORS 




InC 


RCVT0(B4) 


}Count Another retry 




CMP 


BCVT0fB4),ERRLVL 


jENOUGH TRYS? 




BNL 


4S 


;BB IF NO 




MOV 


»DVASAV(B4),ACSR;GET REC STATUS 




CLR 


8DVASAV(R4) 


jKILL REC 




MOV 


DVASAV(R4),CSRA 


;PUT AODR in FOR ERH CALL 




MOV 


CUBLIN(R4},Rt 


;GET ADOP OF CUR LINE BYTE 




MOVB 


(B1),R2 


;GET VALUE OF PHY LINE • 




BIC 


1177760, R2 


;THROW OTHER BITS AWAY 




ADO 


11000, B2 


; INDICATE REC TIMEOUT ERR 




MOV 


B2, ASTAT 


;SET UP FOR ER CALL 




INC 


RCT0R4(R4) 


;SEE NOTE 1 IN FRONT Of LISTING 




ERRORS 


BEGIN 


;PtC TIMED OUT 




TST 


BCT0B4 






BEO 


IS 






CLR 


R4 






BR 


2S 




is: 


MOV 


• 2,R4 




2s: 


DFf 


RCT0R4(P4) 






CLR ■ 


RCVT0(R4) 


;BESET BETRY COUNT 


3S ! 


JMp 


BRECBTN(P4) 


;EBPOR RTN 



NQAk DEC/Xll SYSTEM EXCRCISER NODULIt 
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1084 


•03236' 


016401 


005020' 


108S 


•03242' 


105361 


000020 


1086 








1087 


•83246' 


005364 


005034' 


i0se 


983252' 


SS87&7 




1089 








1090 








1091 








1032 








1093 








1094 








1095 








1856 


3S32S4' 


816403 


004752' 


1097 


•03260' 


012702 


011000 


1098 


•03264' 


032763 


00004R 


1099 


•03272' 


001401 




1100 


•03274' 


000416 




1101 


•0327b' 


B127ia2 


040000 


1102 


•03302' 


032763 


000010 


1103 


•03310' 


001401 




1104 


003312' 


•00407 




1105 


•03314' 


•12702 


012000 


1106 


•03320' 


032763 


000002 


1107 


•03326' 


001001 




1108 


•03330' 


000207 




1109 


•03332' 


005726 




1110 








nil 


•03334' 


0057t)7 


174624 


1112 


i*0334t)' 


001217 




1113 


•03342' 


010367 


174502 


1114 


•03346' 


011367 


174500 


1115 


•03352* 


•16401 


005020' 


1116 


•03356' 


111101 




1117 


•03360' 


042702 


177760 


1118 


•03364' 


060102 




1119 


003366' 


010267 


174462 


1 120 


•03372' 


005264 


005130' 


1121 








1122 


003376' 


1 04404 


000000' 


1123 








1124 


003402' 


005767 


001522 


1125 


003406' 


001402 




1126 


•03410' 


005004 




1127 


003412' 


000402 




1128 


•03414' 


012704 


000002 


1129 


•03420' 


•05364 


005130' 


1 130 


•03424' 


000174 


005040' 


nil 








1132 








1133 








1134 








1 ! 35 








1136 








1137 








1138 








1139 









4$! 



NOV 
DCCB 



DEC 
BR 



CUBLINfP4),Pl .-GET ADDR OF CUR LINE 
20(Rn ;DEC ERROR COUNT TO CORRECT FOR 

:INSUING IMC 

L00P(R4) jCORRECT FOR LATER CALLING THIS A GOOD RUN 

is ; RETURN 



; SUBROUTINE CHECKS FOB AKY OF i HARDWARF SET ERR BITS 
»AND REPORTS THE ERR AND DOES AN ERROR RETURN TO THE 
; ROUTINE WHICH CALLED FOR A RECEIVE 



chkrec: 


SOV 


DVA3AVtR«}.r3 


;G£T DEVICE REG 




HOV 


tn0«0,R2 


; PRESET ERR » 




BIT 


t40,4{R3} 


jHON-EXIST MEM ERROR? 




BCQ 


IS 


|BR IF NOT 






3( 


yELSC GO REPORT 


tti 


MOV 


f 400O0f R3 


•PRESET ERR t 






910r4(R3) 


•RX LATENCY ERROR? 




BEO 


2t 


;BR IF NOT 




BR 


3( 


(ELSE GO REPORT 


2$i 


HOV 


f 12000 fR2 


; PRESET ERR 1 




BIT 


t2.4(R3) 


,RX CLOCK LOSS ERROR? 




BNE 


3t 


;BR IF YES, ELSE 




RT5 


PC 


; RETURN OK 


3«t 


1ST 


(R6)* 


;POP JSR RETURN OFF STACK 








}SINCE WE WON'T GO BACK THAT WAY 




T8T 


REPORT 


.•REPORT ERRORS NOW? 




BNC 


X5 


;BR IF NOT 




HOV 


R3,CSRA ;PUT IN 


FOR ERROR CALL 




HOV 


(R3)r ACSR 






MOV 


CURLIN(R4),Rt 


|gET ADDR OF CUR LINE 




Move 


(Rl).Rl 


;GET VALUE OF CUR LINE 




BIC 


1177760. R3 


;LEAVE LINE i ONLY 




ADD 


R1,R2 


;ADD IN ERR t 




HOT 


R2>ASTAT 


;PUT IN FOR ERROR CALL 




INC 


DTERR4(R4) 


|SEE NOTE 1 IN FRONT OFF LISTING 




ERRORS, 


'BEGIN 


iREC ERROR 




TST 


DTERR4 






BEO 


4$ 






CLR 


R4 






BR 


5$ 




4s: 


MOV 


t3,R4 




5«! 


DEC 


DTERR4(R4) 






JHP 


»RECRTM(R4) 


;G0 BACK TO ERROR RTN 



(SUBROUTINE TO TRANSMIT DATA 
;CALLED WITH A JSR PC,THT 

:*FTEB SETTING LOCATIONS TXADRKBU. TXCNT1(R4). TMTIMCB4). 
;VCTSAV(R4)« 0VASAV(R4}. SUBROUTINE CTS MUST BE CALLED FIRST, 
; RETURNS ON ERROR, RETURNS 2 BYTES PAST NORMAL RETURN 
;IF NO ERROR 
} 



NQAA DEC/Xn SYSTEM EXERCISER MODULE 
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1143 


•03430' 


012664 


005070* 




TMT: 


HOV 


(SP)+,TMTRET(R4) 


(SAVE RTN ADDRESS 


1141 


003434' 


0i)5064 


005«)74' 






CLR 


TMTD0N(R4) 


; INITIALIZE FLAG 


1142 


•0344(1' 


016401 


004756' 






HOV 


VCTSAV(R4),Rl 


;GET REC VECTOR ADDRESS 


1143 


•03444' 


062701 


000004 






ADD 


i4,Rl 


J MAKE IT TMT VECTOR 


1144 


•03450' 


012711 


003762* 






HOV 


ITMTINT,(R1) 


;HOVe IN INT ROUTINE. ADDRESS 




S33454' 


063421 








ADD 


R4, CRD* 


♦CORRECT FOR WHICH LINE 


1146 


•03456' 


11671 1 


174330 






HOVB 


BRl, (Rl) 


•MOV IN PRIORITy'lEVEL 


1147 


«I03462' 


005064 


005014' 






CLR 


AB0RT(R4} 


;CLEAR TIME OUT ABORT FLAG 


1148 


003466' 


016403 


004752' 






HOV 


DVASAV(R4),R3 


;GET DEVICE ADDRESS 


1149 


•03472' 


B62764 


000016 


005054' 




ADD 


•14.,TXCNTl(R4) 


;MAKE SURE MY LAST CHAP GETS SENT, SO 


1150 
















;SEND 4 GARBAGE AT END, PLUS 10 SYNCS 


1151 


•03500' 


005464 


005054' 






NEC 


TXCNT1(R4) 


;GET COUNT IN RIGHT FORM 


1152 


e03594' 


005002 








CLR 


R2 


;ASSUME USING PRI REGS, SET BUMPER TO 


1153 


003506' 


C32763 


000004 


000002 




BIT 


•4,2(R3) 


;ARE WE USING PRI OR SEC? 


1154 


•03514' 


1*01 402 








BCQ 


111 


;BR IF USINC PRI, BUMPER x0 


1155 


•03516' 


012702 


000004 






MOV 


14, R2 


;ELSE SET BUHPER TO 4 


1156 


•03522' 


112763 


000003 


000005 


lltl 


HOVB 


t3,5(R3) 


J POINT TO TXCC-P 


1157 


•03530' 


150263 


000005 






BISB 


R2,5(R3) 


;BUHp TO WHICH SET 


1158 


•03534' 


016463 


005054' 


000006 




HOV 


TXCNT1(R4),6(R3) 


; WRITE TXCC-P 


1159 


•03542' 


1 12763 


000012 


000005 




HOVB 


tl2,S(R3) 


{POINT TO HISC REG 


1160 


•03550' 


012763 


004000 


000006 




HOV 


•4000, 6(R3) 


;SET TO 8 BITS PER CHAR 


1161 


•03556' 


112763 


•00011 


000005 




HOVB 


*11,S(R3) 


•POINT TO SYNC REG 


1162 


•03564' 


016763 


174404 


000006 




HOV 


SYNC,6(P3) 


;WRITE SYNC REG 


1163 


•03572' 


042763 


177725 


000004 




BIC 


1177725, 4(R3) 


{CLEAR ALL BUT REC ERR BITS 


1164 


f 03600* 


112763 


000002 


000005 




HOVB 


I2,5(R3) 


{POINT TO TXBA-P 


1165 


•03606' 


150263 


000005 






BISB 


R2,5(r3) 


{POINT TO WHICH SET 


1166 


•03612' 


016467 


005044' 


001340 




HOV 


TXADR1(R4),ADR 


{PREPARE FOR GETPA CALL 


1167 


•03620' 


162767 


000012 


001 332 




SUB 


tlO.,ADR 


{MOVE PTR TO START OF SYNC FIELD 


1168 


•03626' 


104413 


005160' 






GETPAIi 


ADR 


{GET PHYSICAL ADDRESS FROM ib-BIT ADR 


1169 


003632' 


006367 


001326 






ASL 


EA 


{LINE UP EA BITS 


1 170 


•03636' 


152763 


000020 


000005 




BISB 


t20,5(R3) 


{PUT IN WR ENABLE BIT 


1171 


•03644' 


156763 


001314 


000005 




BISB 


EA,5(R3) 


{MOV EA BITS INTO PLACE 


1172 


•03652' 


•16763 


001304 


000006 




HOV 


PA,6(R3) 


{WRITE ALL 18 BITS 


1173 


•03660' 


•05764 


005110' 






TST 


FDFLAG(R4) 


{ARE WE FULL DUPLEX? 


1174 


•03664' 


001423 








BEO 


5S 


{BR IF NOT, ELSE 


1175 


•03666* 


100012 








BPL 


4t 


{SKIP IF MASTER 


















-{?CHTTHU£ jlT "it £FTEH GOING TO TIMKEP 


1177 
















{TO LET OTHER LINE CONTINUE 


1178 


•03674* 


012701 


000000 






HOV 


(0,R1 


{COME BACK ASAP 


1179 


•03700' 


012702 


•00004 






HOV 


14, R2 


{SHOW ITS A TMT WAIT 


1180 


•03704' 


000167 


000464 






JHP 


TIMKEP 


{LET OTHER LINE CO 


list 


•03710' 


•164)93 


004752' 




3t: 


HOV 


DVASAV(R4),R3 


{PUT DEVICE ADDR BACK IN R3 


1182 


•03714* 


112763 


000043 


000002 


4St 


HOVB 


I43,2CR3) 


{SET TMT INT ENABLE 


1183 


•03722' 


016402 


00507i5' 






MOV 


TMIBET(R4),R2 


{GET BAD RET AODR 


1184 


•03726* 


062782 


•00004 






ADD 


14, R2 


{HAKE IT THE FULL DUPLEX RETURN 


1185 


•03732* 


010207 








MOV 


K2,R7 


{AND RETURN 


1186 


















1187 
1188 


•03734* 


912700 


00406C' 




S$l 


MOV 


•TXTO,R0 


{TIME OUT RETURN AODR 


1189 


•03740* 


016401 


005064' 






MOV 


TMTTIM(R4),P1 


{HOW LONG TO WAIT 


1190 


903744' 


013702 


000004 






HOV 


14, R2 


{SHOW ITS TRANSMITTER 


1191 


•03750* 


112763 


000043 


000002 




HOVB 


t43,2(R3) 


{SET TMT INT ENABLE AND GO BIT 


1192 


M3756' 


000167 


000412 






JMP 


TIMKEP 


{EXIT TO TIMKEP ANU WAIT 


1193 










;TMT 


INTERRUPT 


ROUTINE 




1194 


















1195 


•03762' 


000401 






TMTINTS bR 


1$ 
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SEO 0081 



1196 
1 197 
1199 
1199 
1200 
1201 
1202 
120) 
1204 
1205 
1206 
1207 
1206 
1209 
1210 
1211 
1212 
121 J 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
I 240 
I 241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 



•03764* 


•00004 


004004' 


000000' 


PIRQt 


TID0NE»4>bEGlN 


1 RTI 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


TIDONE+4 


003772' 






1st 






















•03772' 


000034 


004000* 


000000' 


PIROI 


TIDONEfBEGIM 


; RTI 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


IIDONE 



•^4000' 
•04002' 
004004' 
004010' 
•04014' 
004020' 
•04022' 
•04024' 
•04030' 
•04036' 
•04044' 
•04046' 
•04054' 



^05004 






IIDONE: 


CLR 


R4 


000402 








BK 


IS 


•12704 


000002 






HOV 


13, R4 


005064 


005226' 




Itt 


CLR 


RETTAB*4(R4) 


•05764 


005014' 






TST 


AB0RT(R4} 


001401 








BEQ 


3S 


104400 








EXITS 




016403 


004752' 




2S: 


NOV 


0VASAV(R4)>R3 


042763 


000047 


000002 




BIC 


I47,2(R3) 


032763 


000025 


000004 




BIT 


t25«4(R3) 


001005 








BNE 


TXTO 


062764 


000002 


005070' 




ADD 


l2.Tt<TREI(R4) 


000174 


005070' 






JMP 


»TNTRET(R4) 



;SET TO LIME 

;SET TO LINE I 
;KILL IMPENDING TIMEOUT 
jSHOULD « GIVE UP? 
•BR ir NO, ELSE 

jCXiT TO MONITOR. MODULE WAIT FOB INTEBUPT. 
;GET DEVICE ADDR 
jKILL TMT*ER 
;AN» HON CRR'S 7 
;BR ir YES 

jMAKE IT A GOOD RETURN 
jGO BACK OK 



JROUTINF IF TBAN8NIT TlHES OUT 



•04060' 


012764 


177777 005014' 


TXTO I 


MOV 


S177777,AB0RT(R4) J TELL INT ROUTINES TO GIVE UP 


•04066' 


016403 


004752' 




NOV 


DVA8AV(R4),R3 


iCET ADDR or STATUS 


•04072' 


•62703 


000002 




ADD 


t2,R3 


;HAKE IT THT CSR 


•04076' 


011367 


173750 




HOV 


(R3),ACSR 


;SAVC STATUS 


•04102' 


•42713 


000041 




BIC 


141, (R3) 


(KILL TRANSMISSION AND INT 


•04106' 


010367 


173736 




HOV 


R3,CSPA 


(STORE FOR ERR CALL 


•04112' 


016302 


000002 




HOV 


2(R3),R2 


jGET ERR REG CONTENTS 


•04116' 


•12703 


005000 




MOV 


•5000, R3 


; ASSUME ITS A TIME OUT 


•04122' 


032702 


•00020 




BIT 


130, R2 


}TX NON>EXIST MEM? 


•04126' 


001403 






BEO 


IS 


;BR IF NOT 


•04130' 


012703 


006000 




MOV 


l6e«0,K3 


lELSC SHOW IT 


•041 34' 


•00413 






BR 


3S 


|AHO CO REPORT 


•041 36' 


•32702 


000004 


Itl 


BIT 


t4,R3 


jTX LATENCY ERR? 


•04142' 


•01 403 






BEO 


2* 


;BR IF NOT 


004144' 


012703 


007000 




HOV 


sTe0a.R3 


;EL8C SHOW IT 


•04150' 


000405 






BR 


3t 


(AND GO REPORT 


B04I52' 


•32702 


000001 


2S: 


BIT 


tl,R3 


jTX CLOCK LOST ERR0B7 


904156' 


001402 






BEO 


3S 


(BR IF NOT 


•04160' 


012703 


002000 




MOV 


»2000,R3 


;ELSE SHOW IT AND REPORT IT 


•04164' 


•16401 


005020' 


3S: 


HOV 


CURLIN(R4),R1 


;GET ADDR OF CUR LINE 


•04170' 


iinj2 






HOVB 


(R1),R3 


(GET VALUE 


•04172' 


042702 


J77760 




BIC 


S177760,R2 


(LEAVE ONLY LINE • 


•04176' 


060302 






ADD 


R3,R3 (INDICATE THT TIHCOUT 


•04200' 


010267 


173650 




HOV 


R3,*STAT 


(SET UP FOR ERROR CALL 


004204' 


005264 


005144' 




INC 


TXT0R4(R4) 


(SEE NOTE 1 IN FRONT OF LISTING 


•04210' 


104404 


000000' 




ERRORS 


BECIN 


(THT ERROR SEt: ASIAT INDICATOR 


•04214' 


005767 


000724 




TST 


TXT0R4 




•04220' 


•01432 






BEO 


4S 
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1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1 260 
1261 
1262 
1263 
1264 

1 266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
I 287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1299 
I 299 
1 300 
1301 
1302 
I 303 
1304 
1 305 
1306 
1 307 



•04222' B05004 

•04224' 000402 

004226' 012704 

•04232' 005364 

•04236' 000174 



•04242' 

•04252' 
•04256' 
•04262' 
•04264' 
•04270' 
•04274' 
•04302' 
•04304' 
•04310' 



012664 
«i«*iiit 
062701 
012711 
060421 
1 16711 
•16403 
032763 
•01402 
016407 
•12763 



000002 

005144' 

00507P' 



005104' 

000004 
004320' 

173522 
004752' 

•20000 000002 
005104' 

001422 000002 



4SI 
5S: 



CLR 

BR 

HOV 

DEC 

JHP 



R4 
5S 

t2,R4 

TXT0R4(R4) 
•TMTRET(R4) 



(BAD RETURN 



(SUB GETS CLEAR TO SEND FOR LINE IN DVASAV(R4) AND VCTSAV(R4) 



•04316' 104400 



•04320' 000403 



CTS: HOV 
NOV 
ADD 
MOV 
ADD 
HOVB 
HOV 
BIT 
BEO 
HOV 

BTSSETJ HOV 

EXITS 
;INT ROUTINE 
CTSINTI BR 



(R6)+,CTSRET(R4) (SAVE RET ADDRESS 

VrTS»V(R4> ,R1 »GtT VECTOR iODR 
14, Rl (MAKE IT B VECTOR 

#CTSINT,(R1) (HOV IN INT ROUTINE ADDR 
R4,(Rl)+ (SHOWS WHICH LINE 

BRt,(Rl) (GET BRl LEVEL 

DVASAV(R4),R3 (GET DEVICE ADDR 
130000, 2(R3) (IS CLEAR TO SEND UP7 
RT6SET (BR IF NOT 

CTSRET(R4),R7 (RETURN 

fl422,2(R3} (SET REQ TO SEND AND INT. ENABLE 
(DTR AND IDLE BIT TOO. 

(EXIT TO MONITOR. MODULE WAIT FOR INTERUPT. 



IS 



(DIFFERENT PIRQ'S 



•04322' 


000004 


004336' 


000000' 


PIROS 


2S 


BEGIN 


( RTI 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


2S 


•04330' 






ISt 
























•04330' 


000304 


B04344' 


000000' 


PIRQS 


3S 


BEGIN 


( RTI 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


3S 



•04336' 
•04342' 
•04344' 
004 346' 
•04352' 
004360' 
•04362' 
004370' 



012704 
000401 
005004 
01640) 
032763 
•01753 
•42774 
0)6407 



004752* 

02000(1 000^402 



000020 004752* 
005104' 



3S: 
4S: 



MUV 12, R4 (SET UP FOR LINE 1 

BR 4S 

CLR R4 (SET UP FOR LINE 

MOV DVASAV(R4),R3 (GET DEVICE ADDR 

BIT •20000,2(R3) (IS CLEAR TO SEND SET? 

BEO RT6SET (GO TRY AGAIN IF NOT 

BIC f2e,«DVAaAV(R4) (DISABLE DATA SET CHG INT'S 

MOV CT8RET(P4),R7 (RETURN 



(ALL ROUTINES COME HERE WHILE WAITING FOR I/O 
JBOUTINF CITHER KICKS OFF SECOND LIME, NOTIFYS 
(ROUTINES OF TIMEOUTS, OR JUST DOES BREAKS. 
;I/0 ROUTINES THAT FINISH UP BEFORE TIMEOUT VALUE 
(MUST CLEAR LOCATION BETTAB(R4) ^0 IF RECEIVER OH +4 
;IF TMT. 

(CALLED WITH A JMP TO TIMKEP AFTER LOADING 
{ R0 « WHERE TO RETURN IF TIME OUT 
; Rl ■ HOW LONG TO WATT (IN SECONDS) 

; R2 ■ IF ITS A RFC TIMEING OR 4 IF ITS A T«T WAIT 
; B4 » H FOR ACTIVE LINE 0. 2 FOB ACTIVE LINE 1 
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1308 








1 J09 








1310 


B04374' 


•60402 




1311 


B04 376 ' 


010162 


005212* 


1312 


004402* 


067762 


0000000 


1313 


904410* 


010462 


005232' 


1314 


#04114* 


010062 


005222* 


1315 








1316 








1317 








1319 


•04420 


022767 


000(«02 


1319 


904426* 


001410 




1 3S0 


904430' 


0S57S4 




1 321 


004432' 


001402 




1322 


B04434' 


095004 




1 323 


004436* 


000402 




1 324 


•04440* 


(»127a4 


000002 


1 325 


•04444* 


000167 


174344 


1 326 








1 327 








1 326 


004150 


012702 


005222* 


1329 


004454 * 


•05722 




1 330 


^04456* 


001026 




1331 


004460' 


020227 


005232' 


1332 


004464* 


001 37 3 




1333 


•04466* 


005767 


000430 


1 334 


004472* 


001402 




1 335 


•04474' 


000167 


000064 


1 336 








1337 


•04500 


•05767 


000414 


1 338 


•04504 * 


001401 




1 339 


•04506' 


1 04400 




1 3 40 








1341 


004510 


012767 


000001 


1 342 


•04516* 


104407 


000000* 


134 3 


004522* 


104407 


00000e* 


1344 


•04526* 


005067 


000366 


1 345 


•045 32' 


000746 




1 346 








1347 


004534* 


005742 




1 348 


•04536* 


027762 


000000G 


1 349 


B04544' 


•03002 




1 150 


•04546* 


005722 




1 351 


•04550* 


000743 




1352 








135 3 


•04552 


016204 


000010 


1 354 


004556 * 


01120) 




1 355 


•04560 * 


005012 




1356 


•04562* 


010307 




1357 








1358 








1359 








1360 








1361 








1362 








1363 


004564* 


005767 


173374 



It: 

2$i 



ADD 


r4,R2 


MOV 


R1>TIMTAB(R2} 


ADO 


vTIME.TIitTASCj 


MOV 


R4,R4TAB(R2) 


MOV 


R0,RETTA1(R2) 


CMP 


i2,LINACT 


BEQ 


TIMCHK 


TST 


R4 


BEQ 


It 


CLR 


R4 


BR 


2t 


MOV 


• 2rR4 


JMP 


GETHXT 


MOV 


•RETTAB»R2 


TST 


(R2) + 


BNE 


4t 


CMP 


R2>(RCTTAB«1B 


BNC 


It 


TST 


PASTIM 


BEO 


2t 




EPASS 


TST 


BRKFLG 


BEO 


3t 


EXIT* 






1 1 # BRKFLG 


BREAKS, 


>BtGIN 


BREAKS, 


, BEGIN 


CLR 


BRKFLG 


BR 


TIMCHK 


TST 


-(R2) 


CMP 


•TIME,-10(R2) 


BGT 


5t 


1ST 


(R2) + 


BR 


lit 


MOV 


10(r2)>r4 


MOV 


(R2)>R3 


CLR 


CR2) 


MOV 


R3,B7 



jFlGUBE OUT kHICH TABLE ENTRy 
jSTORE HOW LOI«G TO WAIT 
) ;ADD PRESENT TlHE 

;SAVE KHICH ACTIVE LINE 
•WHERE TO RET TO, PLUS 
;1F THIS ENTRY IN TABLE IS 
'0 THEN NO TIMEOUT HILL 
-OCCUR FOR THIS ENTRY SET 
jARE 2 LINES GOING? 
,BR IF YES 
;«RE «E LINE 0? 
; BR IF YES 
; IF NO MAKE IT 

;NE HERE SO NOW DO 1 
;C0 DO OTHER LINE 



;GET ADDr OF TIHE STATUSES 
jANt WAIT GOING ON? 
;BR IF YES 

;ARE WE DONE LOOKING 
;BR BACK IF NO 
jTIMC FOR END OF PASS 
;BR IF NO 

;G0 REPORT END OF PASS 

;ARE me ALREADY IN A BREAK? 
:BR IF NO 

;EXIT TO MONITOR, MODULE WAIT FOR INTERUPT. 

;SHOW WERE DOING BREAK 
jTEHPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION. 
;SHOW WERE BACK 



jMOVE R2 BACK 

;IS TIME UP? 

;BR IF YES 

;BUMP R2 BACK AGAIN 

•GO CHECK OTHERS 

;SET r4 CORRECTLY FOR WHICH LINE 

;SAVe RETURN 

;ClEAR this ENTRY 

;JHP TO TIME OUT ROUTINE 



.-EPASS DOCS END OF pAsS CALL AND PRINTS ERR SUMMARY 
)1F LOCATION REPORT IS NOT 



EPASSt TST 



REPORT 



;D0 ERR SUM OR NOT 
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1364 


n0457t)' 


001461 






BEQ 


5t 


;BR IF NO 


1365 


004572' 


005267 


000146 




INC 


MSGCNT 


;COUNT A PASS 


1366 


»04576' 


026767 


000142 173360 




CMP 


MSCCNT, REPORT 


jTIME FOR A MSG? 


1 167 


004604' 


001053 






BHE 


5$ 


;IF NOT EVEN 8, SKIP MSG 


1368 


B04606' 


005067 


000132 




CLR 


MSGCNT 




1369 


S94612' 


SI 2700 


000212* 




MOV 


■pUVTtB.Dg 


•FIND WHICH LINES ARE RUNNING 


1 373 


•04616' 


012701 


011402* 




MOV 


tSUMl>4,Rl 


jPOIMTS TO MSG 


1371 


•04622' 


105710 




is: 


TSTB 


CR0) 


;IS LINE IN USE? 


1 372 


004624' 


100403 






BMI 


2t 


;BR IF YES 


1373 


•04626' 


912711 


054130 




MOV 


1541301 CRl) 


;PUT XX IN I OF ERRS 


1374 


004632' 


B00427 






BR 


4t 




1375 


B04634' 


1 16002 


000040 


2t: 


MOVB 


32.(Re).R2 


;GET « OF ERRS 


1376 


004640' 


105060 


000040 




CLRB 


32. (Re) 


; RESET ERR COUNT 


1377 


•04644' 


022702 


000077 




CMP 


»77,R2 


;ANY GOOD MSGS 


1378 


•04650' 


002416 






BLT 


3t 


;BR IF NO 


1379 


•04652' 


010203 






MOV 


R2,R3 


;PUT IN MSG 


1380 


•04654' 


042703 


17777*) 




BIC 


1177770. R3 


;LEAVE ONLY LOW DIGIT 


1381 


•04660' 


062793 


00006fl 




ADD 


(60, R3 (MAKE 


IT ASCII 


1382 


•04664' 


1 10361 


000001 




MOVB 


R3,l(Rn 


;STORE IT AWAY 


1383 


•04670' 


006202 






ASR 


R2 


;GET NEXT DIGIT 


1384 


•04672' 


006202 






ASR 


R2 




1385 


•04674' 


906202 






ASR 


R2 




1386 


•04676' 


062702 


000060 




ADD 


160, R2 


fMAKE IT ASCII 


1387 


•04702' 


1 10211 






MOVB 


R2,(R1) >PUT 


IT IN MSG 


1383 


•04704' 


000402 






BR 


4t 




1389 


P04706* 


E»t27ll 


042102 


3t: 


HOV 


142102, (Rl) 


;PUT IN AN 'BD* FOR BAD 


1390 


•04712' 


005200 




4s: 


INC 


R0 


jBUMP LINE POINTER 


1391 


•04714' 


062701 


000010 




ADD 


110, Rl 


;POINT TO NXT MSG 


1392 


•04726' 


320027 


000232* 




CMP 


R0, •PHYTABt20 


;DONE 


1393 


•04724' 


001336 






BNE 


1$ 


;G0 DO MORE 


1394 


•04726' 


104411 


004740' 000000' 




HSGNt, 


MSUH, BEGIN 


;ASCII MESSAGE CALL WITH COMMON HEAULR 


1 395 
1396 








: 








1397 


•04734' 






5$: 








1398 


•04734' 


104402 


000000' 




ENDPSS 


,BEGIN 


jSIGNAL END OF PASS. CONTINUE AT RESTRT 


1399 








I 
























1401 


•04742' 


177777 






-1 






1402 
















1403 


•04744' 


000000 




hsgcnt: 







;COUNTS END PASSES FOR MESSAGE CALL 


1404 


•04746' 


•00000 




mask: 







jUSED FOR BIC'ING IN LOOPS 


1405 


•04750' 


000000 




nXTlIn: 







jADR OF NEXT LiN 


1406 


•04752' 


000000 




DVASAV: 







jHOLDS DVA FOR ACTIVE Lid 


1407 


•04754' 


900000 











;HOLOS OVA FOR ACTIVE Ltl 


1408 


•04756' 


000000 




VCTSAV: 







; HOLDS VCT FOR ACTIVE L(0 


1409 


•0476?' 


000003 











:HOLOS VECTOR FOR ACTIVE Lll 


1410 


•04762' 


•00000 




TMTSAV: 







; HOLDS ADDR OF TMT CSR FOR LINE 


1411 


•04764* 


900000 











;SAHe FOR LINE 1 


1412 


•04766' 


•05242* 




AMSGBFl 


MSGBF0 




;ADDRESS OF MSG BUFFER 


1413 


•04770* 


007262' 






MSGBFl 




; ADDRESS OF MSG BUFFER 1 


1414 


•04772* 


•00000 




recadr: 







;CUPRENT REC WORD POINTER 


1415 


•04774* 


000000 











fCURRENT REC WORD POINTER 1 


1416 


•04776* 


000000 




RECCNTI 







;REC BYTE COUNT FOR 


1417 


005000' 


000000 






t< 




;BEC BYTE COUNT FOB 1 


1418 


005002' 


000000 




RICTIM: 







J TEMP HOLDS TIMF. OUT VALUF FOP A REC 


1419 


005004' 


•00000 











;SAME BUT FOR LINE 1 
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SEQ 0087 



1420 


005006 ' 


000000 


SYNCNT J 







jCOUNTS HOW MANY SY** CHARACTERS PEC 


1421 


H»501il' 


000001) 









{SHOULD WAIT FOR, 


! 422 


B0501 2' 


00000C 


Hn»ct; 







jHOLD THE NUMBER OF LINES RUNNINGf0-2 


1423 


00501 4 ' 


000000 


ABORT t 







;ABORT FLAG FOR LI0 


1434 


005016* 


000000 









; ABORT FLAG FOR Lll 


1425 


B05020' 


0000019 


CURLINt 







jPOINTS TO STATUS BYTE FOR CURRENT Ll0 


1426 


005022* 


000000 









{POINTS TO STATUS BYTE FOR CURRENT L»l 


1427 


005024' 


002516' 


PECDl 


RECDN 




;WHERE TO PIRQ AFTER REC DONE 


1428 


005026' 


002522' 




RECDN*4 




; 


1 429 


005030' 


000000 


ERRWDi 







;HOLDS ERR WORDS TEMPORARILY 


1430 


005032* 


000000 









;HOLDS ERR WORDS TEMPORARILY 


14)1 


005034' 


•00000 


LOOPi 







;HOLDS LOOP COUNT FOR LINE I 


1 432 


005036 ' 


900000 









;HOLDS LOOP COUNT FOR LINE i 1 


1433 


.005040' 


000000 


RECRTNS 







{HOLDS RETURN ADDR FOR LINE 10 


1 434 


•05042 * 


000000 









;HOLOS RETURN ADDR FOR LINE 11 


1 435 


005044 ' 


000000 


TXADRl I 







;HOLDS 1ST ADDR TO TMT FROM^ LINE 


1 4 35 


005046 * 


000000 









;SAHE FOR LINE 1 


1437 


005050' 


000000 


TXADRIt 







{HOLDS 2ND ADDR TO TMT FROMj LINE 


1436 


005052* 


000000 









;SAMC FOR LINE 1 


1439 


005054' 


000000 


TXCNTl : 







{HOLDS 1ST TMT COUNT FOP LINE 


1 440 


005056* 


000000 









{SAME FOR LING 1 


1441 


005060* 


000000 


TXCNT2J 







{HOLDS 2ND TMT COUNT FOR LINE 


1442 


005062' 


000000 









{SAME FOR LINE 1 


1443 


005064 ' 


000000 


TMTTIHt 







{HOLDS TIME OUT TIME FOR LINE 


1444 


005066' 


00000C« 









{SAME FOR LINE 1 


1445 


005070* 


000000 


THTRETl 







{HOLDS RTN ADDR FOR TMT, LINE 


1 446 


005072* 


000000 









{SAME FOR LINE 1 


1447 


005074* 


009000 


TMTDOH J 







{FLAG FOR WHEN A TMT IS DONE 


1448 


005076' 


000000 









{SAME FOR OTHER LINE 


1449 


005100* 


000000 


TSYNCTI 







{HOLDS 1 OF SYN CHAK TO SEND, LINE 


1450 


005102* 


000000 









{SAME FOR LINE 1 


1451 


005104* 


•00000 


CTSRETJ 







{HOLDS RETURN ADDR FOR CTS 
{SAME FOR LINE 1 


1 452 


005106' 


000000 









1453 


•051 lt>* 


000000 


FDFLAGl 







{0 IF HALF DUPLEX, 1 IF FULL 


1454 


1*051 1 2* 


000000 











1455 


0051 14* 


000000 


RCVTOx 







{COUNTS REC TIME OUT RETRYS 


1456 


0051 16* 


000000 











1 457 


005120* 


000000 


BRKFLGl 







{IS A ONE DURING BREAKS 


1 458 


005122* 


090000 


PASTIMI 







{HAS A 1 WHEN ITS TIME FOR END OF PASS 


1459 


0051 24* 


000000 


DR0PR4I 





(EXIT FLAGS 




1460 


•05126* 


000000 











1461 


0051 30* 


000000 


UTERR4I 









1 462 


0051 32 * 


•00000 











1 463 


•051 34* 


000000 


CRCR4I 









1 464 


0051 36* 


000000 











1 465 


005 1 40 * 


000000 


PCT0R4 1 









1 466 


P051 42* 


000000 











1 467 


•05 144* 


000000 


TXT0P4 1 









1468 


•05 146* 


000000 















•00000 


r DBKR4 1 








1 470 


•05152* 


000000 











1471 


005154* 


000000 


CHKR4I 









1472 


005156' 


000000 











1473 














1474 


005160' 


000000 


ADPt 





» TABLE FOR 


GETPA CALL 


1475 


005162' 


000000 


PAt 
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1476 


005164' 


0000(10 






EAt 









1477 










1 








1478 


















1479 


















1460 










J 








1461 










{Rl HAS 


ADDR OR 


VECTOR 




1482 










>R0 HAS 


LINE 1 


IN LOW BITS, 


RETURNS WITH ADDR OR VECTOR IN Rl 


1483 


005166' 








GETADRI 








1484 


005166' 


010046 








MOV 


ROr'CRb) 


{SAVE R0 


1465 


005170* 


043700 


177760 






BIC 


1177760, R0 


{SAVE ONLY LINE i 


1486 


005174* 


001404 






IS: 


BEQ 


2t 


{DONE 


1487 


005176* 


062701 


000010 






ADD 


tlO.Rl 


{BUMP TO NEXT LINE 


1488 


005202* 


005300 








DEC 


R0 


{ADDED ENOUGH TIMES? 


14S9 


3^5204* 


B33773 








BR 


It 


;G0 SACK 


1490 


















1491 


•05206* 


PI 2600 






2s: 


MOV 


(R6)+,R0 


{RESTORE R0 


1492 


















1493 


















1 494 


105210* 


000207 








RTS 


PC 


{RETURN WITH OVA IN Rl 


1495 


















1496 


















1497 


005312' 


000000 






TIMTABI 







{WHEN TO TIME OUT FOR RECLINE 


1498 


005214' 


000000 













{WHEN TO TIME OUT FOR RECLINE 1 


1499 


005316' 


00000J 













{WHEN TO TIME OUT FOR TXT.LInE 


1500 


005220' 


000000 













{WHEN TO TIME OUT FO TXT, LINE 1 


1501 


005222' 


•00000 






RETTABI 







{WHERE TO RETURN FOR REC LINE S) 


1502 


















1503 


















1504 


















1505 


005224* 


•00000 













{WHERE TO RETURN FOR REC LINE 1 


1506 


O0S226' 


000000 













{WHERE TO RETURN FOR TXT LINE 


1507 


005330* 


000000 













{WHERE TO RETURN FqR TXT LINE 1 


1508 


005232' 


000000 






R4T*§i 







(HOLD R4 for RETURNS 


1509 


















1510 


















1511 


















1512 


















1513 


005234' 


000000 















1514 


















1515 


005236' 


000000 















1516 


00524v' 


000000 















1517 










! 








1518 


















1519 


005242* 


•01010 






HSGBF0S 


.BLKW 


530. 


{REC BUFFER FOR LlNt 


1520 


















1521 


















1532 


•07262' 


001010 






MSGBFl I 


.BLKW 


530. 


;REC BUFFER FOR LINE 1 


1523 


0U302' 


J77777 






FILL: 


177777 




{4 CHARACTEPS OF FILLER BYTES 


1524 


011304' 


177777 








177777 






1525 


01 1306' 


01 160PI' 






ADROPi 


MDROP 






1526 


•1 1310' 


177777 








-I 






1527 


















1528 


















1529 










.F.VEN 








153a 


• I 1312' 


0e5015 


•4452J 


04151 "i 


SUM! 


.ASCII 


<15><12>'SINCE LAST MSG PER LINE, IN "CTAL '<15><)2> 


1531 


ai!32«»' 


9701 a; 


0<li!5 I 1 


0^2 1 2 1 
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1532 


01 1326' 


046440 


043523 


050040 








1533 


#11334' 


051 105 


046040 


047111 








1534 


01 1 342 ' 


026 1 05 


044440 


0201 1*1 








1535 


•1 1350' 


041517 


040524 


0201 14 








S 536 


#11356' 


00S01 5 












1537 


01 1 360' 


044514 


042516 


021440 




.ASCII 


'LINE I EBBS'<15><12> 


1536 


01 1 366 ' 


020040 


05 1 1 05 


051522 






1539 


01 1 374' 


005015 












1540 


011376' 


030060 


026455 


030060 




.ASCII 


'Pe"0e'<i3>«i2> 


1541 


01 1404' 


005015 








1542 


01 1 406 ' 


030460 


026455 


030060 




.ASCII 


'0l"00'<15><12> 


1543 


01 1414' 


005015 










1544 


S'. 1416' 


031060 


826455 


030060 




.ASCII 




1545 


011424' 


005015 










1546 


01 1426' 


031460 


026455 


030060 




.ASCII 


'03"00'<15><12> 


1547 


01 1434' 


005015 








1548 


01 1 436' 


032060 


026455 


30060 




.ASCII 


»04"00'<1S><12> 


1549 


01 1 444' 


005015 












1550 


•1 1446' 


032460 


026455 


030060 




.ASCII 


*05»-00'<15><12> 


1551 


01 1454' 


005015 












1552 


01 1456' 


033060 


026455 


030060 




.ASCII 


'06— 00'<15><12> 


1553 


VI 1464' 


005015 












1554 


01 1 466 ' 


033460 


026455 


030060 




.ASCII 


•07— a0*<l5><12> 


1555 


01 1 47 1* 


005015 












1556 


011476' 


03006 1 


026455 


030060 




.ASCII 


'10— 00'<15><12> 


1557 


01 1504' 


005015 












1558 


01 1506' 


030461 


026455 


030060 




.ASCII 


'11— e0'<i5><i2> 


1559 


01 1514' 


005015 












1560 


01 1516' 


031061 


026455 


030060 




.ASCII 


*12— 00*<15><I2> 


1561 


01 1524' 


005015 












1562 


011526' 


031461 


026455 


030060 




.ASCII 


'13— e»'<15><12> 


1563 


01 15 34' 


005015 












1564 


01 1536' 


032061 


026455 


030060 




.ASCII 


'14— 0e'<15><12> 


1565 


01 1544' 


00501 5 












1566 


01 1546' 


032461 


026455 


030060 




.ASCII 


' 15— 00'<1S><12> 


1567 


01 1554' 


005015 












1568 


011556' 


033061 


026455 


030060 




.ASCII 


'16— fl0'<15><12> 


1569 


01 1564' 


005015 












1570 


01 1566' 


033461 


026455 


030060 




.ASCII 


'17— ••'<15><12> 


1571 


01 1574' 


00501 5 












1572 
















1573 


911576' 


000 








.BITE 





1574 
















1575 
















1576 


011603' 


044514 


042516 


053440 


HDROPi 


.ASCII 


'LIHE HAS DROPPED' 


1577 


011606' 


051501 


042040 


047522 








1578 


011614' 


050120 


042105 


000 








1579 




000001 






.END 
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NQAA.PU 


CROSS 


REFERENCE 


TABLE 


USER ; 


SYMBOLS 






ABOST 


005014R 




903* 


928* 


980 


1058» 


1147» 


1308 


AC5B 


00005 2 R 




4691 


1063* 


1114* 


1225* 






ADDR 


000006 R 




448t 


643 


722 








ADR 


00516«IR 




945* 


946 


1166* 


1167* 


1168 


1474* 


ADROP 


eil306R 




808 


15251 










AHSGBF 


f04766R 




767 


833 


859 


998 


1412f 




ASB 


000056R 




4721 












ASTAT 


00005 4 R 




471» 


1003* 


1040* 


1043* 


1070* 


1119» 


AMAS 


V00060R 




4731 












BDCNV » 


****** 


G 


li 












BEGIN 


000000R 




4451 


624 


62S 


678 


679 


692 








990 


1014 


1046 


1073 


1122 


1197 








1398 












BIT0 X 


000001 




4821 












BlTl » 


000002 




4821 












BIT10 I 


002003 




4821 












BITIl = 


004000 




482i 












BIT12 » 


010000 




482) 












BIT13 « 


020000 




482« 












BIT14 * 


040000 




4821 












BIT15 = 


10000!* 




4821 












SIT2 » 


000004 




4S2t 












BIT3 « 


000010 




4821 












8IT4 » 


000020 




482i 












BIT5 ■ 


000040 




482t 












BIT6 * 


• 00101" 




4821 












BIT7 » 


000200 




4821 












BIT8 » 


•00400 




482t 












BIT9 « 


•01000 




4821 












BREAKS* 


104407 




4821 


678 


679 


885 


886 


989 


BRKFLG 


•051 20R 




711* 


750 


1337 


1341* 


1344* 


1437i 


BPl 


•0001 2R 




4501 


927 


1146 


1269 






BR2 


•0001 3R 




4511 












CDATA$> 


104414 




4821 












CER 


•03016P 




1020 


1022 


10381 








CHKREC 


303254R 




985 


1059 


10964 








CHKR4 


ansistR 




707» 


708* 


988* 


991 


996* 


14711 


CKMSG « 


****** 


G 


4821 


986 


1013 








CRCMSG> 




G 


4821 


1019 


1021 








CRCR4 


•051 34R 




699* 


700* 


1044* 


1048 


10S3« 


14631 


CSRA 


•00050R 




4671 


1065* 


1113* 


1227* 






CTS 


•04242R 




779 


824 


858 


1264« 






CTSINT 


004320P 




1267 


1 2781 










CTSRET 


•05104R 




1264» 


1273 


1293 


14511 






CURLIN 


•05020R 




717» 


799 


846 


904 


1006 


1032 


DATCKts 


104417 




4821 












DATCRSa 


104405 




4821 












DERR 


•01430R 




782 


795t 










OEVSETs 


****** 


G 


4ft3l 


626 










DONE 


Mlt34R 




715 


7381 










DROP 


•01474R 




802 


806< 


849 


909 






DP0PP4 


•05124R 




69S» 


696* 


807* 


809 


814* 


14591 


DTEPR4 


•0S130R 




697* 


698* 


1 120« 


1124 


1129» 


14611 


DVASAV 


•04752R 




724* 


78S 


929 


979* 


1063 


1064* 








1289 


1292* 


1406i 








DVIDl 


•0001 4R 




4521 


622 











1223* 14231 



746 

1201 



808 
1248 



885 
1280 



886 
1284 



967 
1342 



971 
1343 



989 
1394 
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EA 


935164R 




947* 


949 


1169* 


1171 


14761 




ECOUNT 


•00252R 




5521 


1034* 






ENOPSt * 


1 044^2 




4831 


1398 












1 0440} 




482i 


624 


692 


746 






EPAS5 * 


004564R 




752 


1335 


1 363V 






ERRCNT 


il«)0030P 




459f 










ERRLVL 


0001 72R 




491 1 


801 




906 


1061 




EPRNS ■ 


104410 




4821 










ERRORS* 


1 04404 




4 8 2 i 


1046 


1073 


1122 


1 248 




ERRTAB 


#002 32R 




53 31 








ERRWD 


905030R 




1 4291 












EXITS ~ 


1 04400 




4B2t 


755 




962 


1210 


1276 


rOBf R4 


•0S1^0R 




705» 


706* 


884» 




892* 


1 469V 


FDFLAG 


005 1 1 0R 




757* 


761* 


857# 


951 


117 3 


1453V 


FORCDN 


00206t4R 




864 


8821 


893 


907 




FDTO 


•02222R 




872 


913t 










FERR 


ff01 444R 




773 


798V 










FERRl 


0014 46R 




797 


799V 










FILL 


01 1 302R 




15231 












GFRP 


001670R 




827 


845V 










GETADR 


•05166P 




723 


728 


148)1 








GETNXT 


t0 1 1 4 R 




7141 


721 


792 


1325 






GETPASx 


1 0441 3 




482 i 


946 


1 168 








GWBUFSs 


1 04412 




482 V 












HERP 


001676R 




838 


846V 










I N IT 


00002 2 P 




4564 












JERP 


002 1 5 4P 




86 3 


870 


9021 








LINACT 


0050] 2R 




713* 


7 30* 


7 38 


787* 


- 

1318 




LNOONE 


001 400R 




787* 


815 


842 


698 






LOOP 


005^34P 




731* 


784* 


785 


639* 




894* 


LPCNT 


000t66R 




4891 


795 


840 


695 






MAP22$= 


t 0441 5 




482> 












MASK 


V04746P 




627* 


631 


633 


637 


639* 


14041 


MD X 




GX 


7 34 












HDATAB 


900272R 




576« 












HOMTAB 


000 3 1 2 R 




603 1 












HDROP 


011 600P 




1525 


1 576t 










MODNAM 


000000P 




4461 












MODSP 


000 1 64R 




457 


480V 










MSG s 




Q 




999 










HSGBF0 


005242^ 




1412 


1 5 1 9V 










MSGBFl 


007 26 2 R 






1522 V 










MSGCNT 


004744R 




670* 


1 365* 


1 366 


1 368* 


1403f 




HSGHEDx 


*#«««» 


G 


4821 


672 


776 


621 


665 




HSGNS 3 


1 0441 1 




482V 


808 


1 394 








HSGSI Zx 




G 


4821 


768 


777 


622 


834 


660 


MSGSS X 


1 04416 




482V 












MSGS X 


104406 




4821 












HSUH 


004740R 




1394 


1 400V 










NXTLIN 


004750R 




712» 


714 


716 


719* 


140SS 




OACNV » 


»*«*»» 


G 


11 












ONEPEC 


801310R 




493 


774V 


804 








ONETHT 


001606R 




494 


8294 










OPEN r 


000000 




447 
473 


453 
482V 


460 


461 


462 


463 


PA 


005162R 




950 


1172 


14751 
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NQAA.Pl 1 


1 CROSS REFERENCE 


TABLE - 


- USER 


SYHBOi.S 






PASCNT 


00002bR 


458V 












PASTIM 


B05122P 


710* 


748* 


1333 


1456* 






PHYTAB 


0002 12R 


5111 


628 


635 


666 


712 


714 741 


PIBOS a 


000004 


4821 


967 


971 


1197 


1201 


1260 1264 


POPSP = 


00572b 


4821 












P0PSP2» 


022626 


482V 












PP 


00I212R 


735 


757* 










PPFO 


00t72flP 


760 


855* 










PPFOl 


ei(ll740R 


859V 


896 










PPHDM 


001536R 


763 


820* 


841 








PPHDH2 


001650R 


832 


839* 


8S0 








PPHDS 


001244R 


766V 


786 










PPHDS2 


001364R 


775 


784* 


805 








PBTV I 




48?« 












PBTY0 s 


000000 


482V 












PPTYl * 


000040 


482V 












PPTY2 s 


000100 


4821 












PPTY3 * 


000140 


482V 












PRTY4 » 


P00200 


4821 












PPTY5 a 


000340 


450 


451 


483* 








PRTY6 I 


000300 


482* 












PRTy7 X 


000340 


482* 












PS X 


177776 


482* 












PSW X 


177776 


482* 












PUSH X 


035746 


482* 












PUSH2 X 


024646 


482* 












PWRCNTx 




482* 


690 










QUES X 


104401 


482* 












RCrOR4 


00514(9R 


701* 


702* 


1071* 


1075 


1080* 


14651 


PCVTO 


00SU4R 


732* 


983* 


1060* 


1061 


1081* 


14551 


ROTO 


0a3104R 


914 


957 


1058t 








REC 


002234R 


772 


837 


862 


923* 






RECADR 


004772B 


767* 


833* 


859* 


945 


1414* 




RECCNT 


004776R 


768* 


769* 


634* 


635* 


660* 


161* 930* 


PECO 


P0S024R 


1427* 












RFCON 


002516R 


967 


971 


976* 


1427 


1428 




RFCEPP 


003032P 


1004 


1041* 










RECINT 


002S00R 


925 


965* 










RECPTN 


005040R 


913* 


923* 


954 


1033* 


1025 


1062 1130 


RECTIM 


005002R 


770* 


771* 


836* 


956 


1416* 




REPORT 


000164R 


486* 


1001 


1008 


1028 


1036 


nil 1363 


RESTRT 


e00662K 


474 


677 


690t 








RETTAB 


005222R 


984* 


1024* 


1207* 


1314* 


1326 


1331 1501* 


RPET 


002760R 


1024* 


1030 


1035 


1054 






RSTRT 


000062R 


474* 












RTSSET 


00431t;R 


1272 


1274* 


1291 








R4TAB 


e0S232R 


1313* 


1508* 










SBADR 


00005 2 R 


468* 












SPARE! 


000202R 


496* 












SPARE2 


0a0204R 


497* 












SPAPE3 


000206P 


4981 












SPAPE4 


00021(<R 


499t 












SPOINT 


e<l0024P 


4571 


694 










SPSIZ X 


000040 


1* 


475 










SPl 


0e0J16R 


4531 


640 










STABT 


000332R 


456 


62ia 
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STAT 


S00020R 


4551 








SUM 


V11312R 


1 400 


15301 






SUM1 


011 37bR 


1 370 


15401 






SVRil 


900032R 


4601 








SVRi 


eeil034K 


461 • 








SVR2 


•00036R 


4621 








SVR3 


•^0040R 


4631 








syR« 


9e0042R 


464: 








SVR5 


900044R 


4651 








SVR6 


000046R 


466* 








SYNC 


000174R 


4921 


673 


939 


1162 


SYNCNT 


90S006R 


14201 






TIDONE 


904030R 


1 197 


1 281 


12041 




TIHCHK 


004450R 


740 


1319 


1 3281 


1345 


TIME I 


»»«««• G 


482s 


1312 


1 348 




TIMELN 


0001 70R 


4901 


770 


771 


7SH 


TIMKEP 


•04374R 


876 


961 




1192 


TIHTAB 


99521 2R 


1311* 


1312* 


14971 




TMT 


•03430R 


781 


826 


869 


1140t 


TMTDON 


005>*74R 


876* 


882 


902* 


1141* 


TMTINT 


003762R 


1144 


11 951 




TMTRET 


905073R 


1 1 40* 


1183 


1215* 


1216 


TMTSAV 


e04762R 


726* 


783* 


795* 


828* 


THTTIM 


i>0S064R 


780* 


825* 


1189 


1443* 


TPX X 


900000 


482* 








TRAPX > 


000020 


4821 








TSXNCT 


005100R 


14491 








TXADRl 


005044R 


776* 


821* 


865* 


1166 


TXA0R2 


M5050R 


14371 






TXCNTl 


e0^054R 


777* 


778* 


822* 


823* 


TXCNT2 


>0S060R 


1 441 1 








TXTO 


ed4060R 


1188 


1214 


1222f 




TXT0R4 


005144R 


703* 


704* 


1246* 


1250 


VCTSAV 


M4756R 


729* 


924 


1142 


1265 


VECTOR 


00001 0R 


449t 


727 






WAIT I 


••••»• G 


482t 


676 






WASADR 


00005 4 R 


4701 








XFLAG 


00000SR 


447» 








X4 


002770R 


1017 


1028t 






X5 


003000R 


1002 


1029 


10}2t 


1039 


u 


•11621R 


lSl9t 


15221 


15741 





825 
1310* 



1256 
845* 



14351 
867* 



125S* 
14081 



144St 
897* 



868* 
14671 



908* 1410* 



1149* 1151* 



. ABS. 000009 000 
«tl621 001 



% ERRORS DETECTED? 1 

% DEFAULT GLORALS GENERATED) 1 

*NQAA,NQAA/SOL/CRF:S¥H=DDXCOH,NOAA 
RUN-TI«E! 7 !2 ! SECONDS 
RUN-TIME RATIO: 70/20B3.4 
CORE USED: 3K (15 PAGES) 
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SEQ 0094 



1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
il 

12 IDENTIFICATION 

13 

14 

15 PRODUCT CODE: MAINDEC -1 1 -DXNPB-A-D 

16 

17 PRODUCT NAME: DUP-11 DECNET DEC/Xll EXERCISER MODULE 

IS 

19 DATE: 21-JUN-76 

20 

21 MAINTAINER: DEC/Xll DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN, 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNIsHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL, 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

38 
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1. abstract 

this type of dec/xll module, referred to as decnet dec/xll module, 
will detect system interaction errors when run in conjunction with 
Other dec/xii modules exercising other devices on the system, 

ERRORS are reported ON THE SYSTEM CONSOLE AS THEY OCCUR OR AS A 
summary report, at the OPERATORS OPTION, IN ADDITION, THESE 
MODULES MAY BE USED TO VERIFY THE CONDITION OF THE ASSOCIATED 
MODEMS AND COMMUNICATION LINKS, IT WILL ONLY TEST COMMUNICATIONS 
PATHS CAPABLE OF RUNNING DDCMp, THIS MEANS THE DEVICES MUST USE 
NO PARITY* 8 LEVEL CODE» AND TERMINALS CANNOT BE TESTED, 



NOTE 

THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/Xll, 
THE DETAILS OF LINKING, LOADING, AND 
RUNNING MODULES UNDER DEC/Xll CAN BE 
FOUND IN THE DEC/Xll USERS DOCUMENTATION 
AND REFERENCE GUIDE, MAINDEC-1 1 -DXQBA . 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MAINDEC-11»DXQBC# WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING, 



2, HARDWARE REQUIREMENTS 



THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE. THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS: 



A, 1 PROCESSOR, 1 COMM, DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES. (MUST RUN FULL DUPLEX) 

B, 1 PROCESSOR, 2 COMM. DEVICES, 2 MODEMS 

C, 2 PROCESSORS, 2 COMM. DEVICES, 2 MODEMS 

UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUT ONLY 2 
LINES ARE KEPT RUNNING SIMULTANEOUSLY, 



3. SOFTWARE REQUIREMENTS 

A, THE DEC/Xll MONITOR MUST BE QABK OR A LATER REVISION, 

B. THE NIA? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOR* 
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C, ALL NETWORK MODULES MUST BE CONFIGURED NEXT, 

D, THE N2A? MODULE MUST BE CONFIGURED NEXT.* 

E, ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT, EITHER 
KHA7r KWB7, OR KWX? 

F, ANY OTHER DESlREO DEC/Xll MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER. 



4. PRELIMINARY TESTING 



THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE, THEN A DEC/Xll EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/Xll MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN, IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/Xll MAY BE ATTEMPTED. 



5. PROGRAMMING CONSIDERATIONS 



A. OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN WHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/Xll 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/Xll 
MONITORS AND ALL OTHER MODULES, THE ONLY OTHER EXECPTION IS 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE MILL NOW BE 2 
DIFFERENT DEC/Xll MODULES CAPABLE OF BEING RUN, THE OLDER 
MAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYpE REQUIRING A 
COMPLETED COMMUNICATIONS pATH. IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/Xll 
MODULES IN ONE RUn TImE EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE. IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY BE SELECTED FOR THE SAME RUN. 



B, USING THESE DECNET DEC/Xll MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC/Xll 
TOGETHER, ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES. DUE TO DIFFERENT HARDWARE ON EACH SYSTEM, 
RUN TIMES AND END OF PASS TIMES MIGHT VARY CONSIDERABLY. 
THEREFORE IT IS NECCESSARY THAT THESE DECNET DEC/Xll MODULES 
BE EXTREMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS. THIS HOWEVER, MEANS IT SOMETIMES MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING, 



C. DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



• THESE ARE DESCRIBED IN THE DECNET DEC/Xll USER'S GUIDE, 
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BUFFERS REQUIRED TO RUN MANlf LINES FROM ONE MODULE ALL AT THE 
SAME TIME, TT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME, IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL RUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LpCNT, THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC UP TO THE 8TH PAIR, IT WILL 
THEN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC, THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING LINES TOGETHER SO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE, PLEASE 
READ THE DECNET DEC/Xll USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS, 

D, THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES,, THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED, THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS, 



6, OPERATING PROCEDURES 

A, THE MODULE Is CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
DEC/Xll REFERENCE GUIDE, 

B, CONSOLE SWITCHES ARE STANDARD FOR DEC/Xll 

C, THE NIA? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYpE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY, THE OPTIONS 
INCLUDE: 

ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANNED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 

D, THE N2A? MODULE WILL MAKE ANY AUTOMATIC PHONE CONNECTIONS 
USING ANY DN-U'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS, ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE. 

E, THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE, 

F, THERE Are MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE! 



(1) LOCATION 164 IS A SWITCH WHICH INDICATES WHETHER OR NOT 

ALL ERRORS SHOULD BE REPORTED AS THEY HAPPEN, IF 

LOCATION 164 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 

TOTALLED (ON A LINE BY LINE BASIS); EVERY N PASSES THIS 
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TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED. THE VALUE OF N IS THE VALUE OF LOCATION 164, 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BE TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VERY GOOD UUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128. 
(LOCATION 166 IS DEFINED NEXT.) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128. IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW. IF THE LINE 
IS OF KNOWN GOOD QUALITY, THIS RESTRICTION MAY BE 
RELAXED. THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS. (LOC 164x0) OF COURSE DEC/Xll KEEPS TOTALS FOR 
THE ENTIRE RUN, REGARDLESS. 

LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED, AN ITERATION IS 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER. 
THE DEFAULT VALUE IS 8. 

LOCATION 170 IS A TIME SCALING FACTOR. THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS, THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS. 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR. 
DEFAULT IS 30 SECONDS. 

LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS, SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR ViCE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING, IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10, 

LOCATIOV 174 CONTAINS 2 IDENTICAL BYTES FOR USE AS SYNC 
CHARACTERS. THE DEFAULT IS 113226 WHICH IS 2 BYTES OF 
226, IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER, THIS LOCATION IS A DON'T CARE FOp 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

LOCATION 176 IS AN ADDRESS. IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN RECEIVE-ONLY MODE, HE SELECTS THE LINE 
FOR HALF DUPLEX, POlNT-TO-POiNT, SLAVE. (BIT 7=1, 
BITS 4,5, AND 6 s 0'S IN THE PHYSICAL LINE TABLE. SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 17b FROM A 401 TO A 240, THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
SLAVE RY THIS MODULE TO RUN IN RECEIVE ONLY MODE. THIS 
LOCATION MAY BE PATCHED BACK TO A 4idi TO RESUME NORMAL 
REC-TMT TESTING. 
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(7) LOCATIOM 200 IS AN ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE/ HE SELECTS THE 
LINE FOR HALF DUPLEX, POlNT-TO-POlNT, MASTER (BITS 7 AND 
5 = I'S, BITS 4 AND 6 = Pt'S IN THE PHYSICAL-LINE TABLE. 
SEE ITEM 6-l"-9 BELOW.) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINFS BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE. THE 
LOCATIOM MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING, 



G, LOCATIONS DVA, VCT, BRl AND BR2 MUST BE SET TO PROPERLY MATCH 
THE FIRST DEVICE jO BE TESTED BY THIS MODULE, 



7, ERROR REPORTING 



A, ERRORS ARE EITHER TOTALLED AND PRINTED AS SUMMARIES ON A LINE 
BY LINE BASIS, OR THEY ARE PRINTED AS THEY OCCUR, SEE 
SECTION 6F1. THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS, 



B, DATA ERRORS ARE ACTUALLY REpORTED BY THE NIA? MODULE BECAUSE 
THIS IS WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED, SO ALL DECnET DEC/Xll MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD OEC/Xll DATA COMPARE ERROR MESSAGE 
EXCEPT: 

(1) THE MODULE NAME TYpED IS FFXX, WHERE FF IS FILLED IN TO 
BE THE NA!^E OF THE DECNET DEC/XU MODULE WHICH CALLED 
THE NIA? MODULE TO DO THE COMPARE, IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR,, 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMPARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED, 

(3) ACSR CONTAINS THE ADDRESS OF THE DECNET DEC/XU MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED. 

(4) SBADR CONTAINS THE LINE » OF THE DEVICE WHICH HAD THE 
DATA ERROR, 

(5) WASADP CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IM THE MESSAGE THIS BAD CHARACTER WAS, 

(6) THE "SHOULD BE AND "wAS" ITEMS ARE NORMAL. 



C. OTHER E:rrORS ARE REPORTED USING THE NORMAL ERROR CALL IN 
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DEC/Xll CSRA AND ACSR ARE STANDARD. STATC CONTAINS A CODED 



ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 
DEC/Xll MODULES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 
WHICH LINE HAD THE ERROR THE OTHER DIGITS CONTAIN THIS CODE: 



0010XX 
0020XX 
00 30 XX 
0040XX 
0050XX 
0060XX 
0070XX 
0100XX 
01 10XX 
0120XX 
0200XX 
0400XX 



REC TIME OUT 

TMT CLOCK LOSS 

HEADER CRC ERROR 

MSG CRC ERROR 

TMT TIME OUT 

TMT NON-EXISTENT MEMORY 

TMT LATENCY 

REC DATA PARITY ERROR 

REC NON-EXISTENT MEMORY 

REC CLOCK LOSS 

REC FRAMING ERROR 

REC OVERRUN OR LATENCY ERROR 



THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 
LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE, THE FIRST 
TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE NIA? 
MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 
CONSOLE FOR THE OPERATORS SUBSEQUENT USE. 



D. ALL ERRORS HAVE A RETRY LIMIT (SEE SECTION 6F4) WHICH CAN BE 
MODIFIED, 



E, ON P0WER-FAIL» pOWER-UP CONDITIONS* DECNET DEC/Xll MODULES 
WILL DROP THEMSELVES. THIS IS DONE BECAUSE THE PHONE 
CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 
WILL BE REQUIRED. 



8. TEST SEQUENCE 

LINES ARE TESTED BY PAIRS IN SEQUENTIAL ORDER. THIS ORDER MAY BE 
MODIFIED BY MODIFYING THE PHYSICAL LINE TABLE. (SEE DECNET 
DEC/Xll USEP'R GUIDE). THERE ARE SEVERAL TESTING OPTIONS WITH 
SLIGHTLY DIFFERENT FUNCTIONS MAKING UP AN ITERATION: 



A. POINT-TO-POINT SLAVE. IN THIS CASE THE LINE WAITS TO RECEIVE 
A MESSAGE, WHEN IT DOES, IT CHECKS IT, AND THEN TRANSMITS A 
MESSAGE BACK. IT WILL REPORT ERRORS ON EXCESSIVE WAITS. 



B. POINT-TO-POINT MASTER. IN THIS CASE THE LINE SENDS A MESSAGE 
AND WAITS TO RECEIVE ONE IN RETURN, IT THEN CHECKS THE 
RECEIVED MESSAGE. IF IT TIMES-OUT, IT TRANSMITS AGAIN, IT 
WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 
MESSAGF IS RFCFIVED, OR IT TIMES OUT COUNT EQUALS LOCATION 
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172r THE ERROR TOLERATION LEVEL, (SEE SECTION 6F4), IT WILL 
THEN REPORT AN EPROR AND BEGIN AGAIN, AFTER THE NUMBER OF 



CONSECUTIVE TIME-OUT ERRORS REPORTED EQUALS LOCATION 172, THE 
LINE WILL BE DROPPED, 



C, POINT-TO-POINT SLAVE RECEIVE ONLY. IN THIS MODE THE LINE 
WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 
RECEIVE AGAIN, 



D, POINT-TO-POINT MASTER-TRANSMIT ONLY, IN THIS MODE THE LINE 
JUST TRANSMITS AND THEN TRANSMITS AGAIN , ETC , 



E, MULTl-DpOp MASTER, IN THIS MODE* THE LINE WILL SEND A DDCMp 
MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 
TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 
DATA, 

* NOT YET IMPLEMENTED 



F, MULTI-DrOP slave, in THIS MODE, THE LINE WILL WAIT FOR A 
MESSAGE WITH THE MATCHING ADDRESS, THEN IT WILL TRANSMIT A 
MESSAGE, 

♦ NOT YET IMPLEMENTED 



G, THESE BASIC ITERATIONS ARE REPEATED UP TO THE NUMBER OF TIMES 
IN LOCATION 166, (SEE SECTION 6F2) FOR EACH LINE SELECTED 
FOR TEST, AND THE END-OF-PASS IS DECLARED, 



9. PASS TIMES 



PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT, DIFFERENT BAUD 
RATES, MESSAGE siZES, AND TESTING MODES ALL GREATLY AFFECT 
THE PASS TIME, BELOW ARE SOME BALL PARK TIMES, BUI ANJf ONE 
SYSTEM COULD VAFY TREMENDOUSLY FROM THESE: 

-RUNNING ALONE, 1 LINE ON AN 1 1 /(?5 AT 9600 BAUD, HALF DUPLEX, 
POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 
SECONDS, 



NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 
WHEN 2 LINES ARE RUNNING, A MOMTOR CALL CAN BE MADE AND BEFORE CONTOrL IS 
RETURNED TO THE MODULE, THE OTHEh LINE MAY CAUSE THE EXACT SAME CALL TO BE 
MADE, TN FACT, WHEN RUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 
4 CALLS TO THE MONITOR FROM ONE SPOT IN THE MODULE., BEFORE THE FIRST CALL IS 
RETURNED FROM, JHIS IS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 
BEFORE DOING CALLS, SO THAT WHEN IT IS RETURNED TO, IT CAN KEEP WHICH 
LINE DID WHAT STRAIGHT, 
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431 
432 

433 NOTE 2 WHEN RUNNING 2 LINES LOOPED TOGETHER FROM THE SAME MODULE 

434 THE LOW ORDER ONE (PER DVC, L0C,14) SHOULD BE SLAVE AND THE HIGH ORDER 

435 ONE SHOULD BE MASTER. 

436 % 
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lONOD <NPBA >, \,*,S,S 

HODULE 1400ee«NPBA >1>4,5,5, 

.TITLE NPBA DEC/XJl SYSTEH EXERCISER MODULE 

DDXCOM VERSION 4 9/6/75 

.LIST BIN 



SEO 0103 



BEGIN! 

HODNAHS 

XFLAGi 

ADDRi 

VFCTORI 

BRl: 

BR2I 

DVIDU 

SRI I 

i ••»••• 

STAT: 

INIT: 
spoint: 

PASCNTJ 
ERRCNT: 

SVR0: 

SVRlt 

SVR2J 

SVR3: 

SVR4: 

SVR5: 

SVR6t 

CSRAi 

SBADRt 

ACSR: 

WASADRt 

ASTAT: 

ASBt 

AWAS: 

RSTRTj 



-ASCII 

.BlfTE 

1*0 

4t0 

.BYTE 

»BiTE 

+ 1 

OPEN 
•••••••« 

140000 

START 

HOOSP 





OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

HESTRT 

.REPT 

.NLIST 

.WORD 

.LIST 

.ENOR 



PRTY5+0 

PS?Y5*8 



/NPBA / J MODULE NAME, 

OPEN ;USED TO KEEP TRACK Or ViBUrr USAGE 

1 1ST DEVICE ADDR. 

;1ST DEVICE VECTOR. 
;1ST BR LEVEL. 
;2fiD SS LEVEL. 
;DEVICE INDICATOR 1. 
jSWITCH REGISTER 1 
>••••«••••••••••«•••••••••••»•••*•*•*••**•*••»•••••*•*•* 

;STATUS WORD. 
;MODULE START ADDR. 
;HODULE STACK POINTER, 
;PASS COUNTER. 
jERROR COUNTER. 
;LOC to SAVE R0. 
;L0C TO SAVE Rl. 
;LOC TO SAVE R2. 
;LOC TO SAVE R3. 
;LOC TO SAVE R4. 
;LOC TO SAVE R5. 
;LOC TO SAVE R6. 
;AODR OF CURRENT CSR. 
;ADDR OF GOOD DATA, OR 
jCONTEHTS OF CSR. 
;ADDR or BAD DATA. OR 
;STATUS REG CONTENTS. 
{EXPECTED DATA. 
;ACTUAL DATA. 

J RESTART ADDRESS AFTER END OF PASS 
SPSIZ {MODULE STACK STARTS HERE. 





.GLOBL WAIT, TIME, HSGSIZ, CKHSG, CRCMSG, HSGHED, MSCPMRCNT 
.GLOBL DEVSET 



LPCNTi 10 

TIMELNi 30. 

ERRLVL: 10. 

SYNC: 113226 
ONEREC 
ONETMT 



IFLAG, IF St, THEN ERRORS ON RECEIVED MSG'S 

»ARE TOTALLED AND PRINTED EVERY t PASSED 

;IF >0, ERRORS ARE ALL REPORTED AS THEY HAPPEN. 

; ITERATIONS PER END PASS CALL 

J TIME OUT FACTOR, IN SECONDS 

» NUMBER OF ERRORS TOLERATED 

J 2 BYTES OF SYNC CHARACTER 

(ADDRESS OF WHERE 240 GOES 

; ADDRESS OF WHERE 240 GOES 



NPBA DEC/Xll SYSTKM EXERCISER MODULE 
NPBA. PI 1 
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493 
494 
495 
496 
497 
498 
499 
500 
501 
■i02 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
5J3 
534 
535 
536 
537 
538 
519 
540 
541 
542 
54 3 
544 
545 
546 
547 
548 



600202' 
000204' 
000206' 
000213' 



1>00000 
000000 
000000 
000000 



000212' 
000213' 
000214' 
000215' 
000216' 
000217' 
IH90220' 
t»00221 • 
000222' 
000223' 
000224' 
000225' 
000226' 
000227' 
000230' 
000231 ' 



000232' 
000233' 
000234' 
0002 35' 
000236' 
000237' 
000240' 
000241 ' 
000242' 
000243' 
000244' 
000245' 
000246' 
000247' 
000250' 
000251 ' 



000 
001 

002 
003 
004 
005 
006 
007 
010 
011 
012 
013 
014 
015 
016 
017 



000 
000 
000 
000 
000 
000 
000 
000 
000 
000 

000 
000 
000 

»«0<* 
000 
?I00 



SPAREl: 

SPARE2: 

SPARE3I 

SPARE4t 



PHYSICAL LINE TABLE. BYTE CONTAINS THE PHYSICAL 
LINE t FOR THE FIRST LINE TO BE RUN. BYTE 1 WILL BE 
THE PHYSICAL LINE RUN SECOND, ETC. 

EACH BYTE IN THE TABLE HAS THE FOLLOWING BIT MEANINGS! 



jBIT 0-3 
;BIT 4 
jBIT 5 
;BIT 6 
;BIT 7 
PHYTA8! 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE I 

FOR POINT-TO POINT, 1 FOR MULTI-DROP 

FOR SLAVE, 1 FOR MASTER (DERIVED FROM SRI) 

FOR HALF DUPLEX, 1 FOR FULL 

DO NOT TEST, 1 TEST (DERIVED FROM DVIDl) 



1 

2 

3 



ERPTAB , KEEPS TRACK OF RETRY ErrOr COUNTS FOR 
EACH LINE 



ERRTABl .BYTE 





.BYTE 





.BYTE 


VI 


.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 






F.COUNT TABLE KEEPS TRACK OF t OF BAD MsG'S 



NPB» OGC/XU SKSTEM EXERCISER MODULE: 
NPBA.PII 
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SEQ 0105 



5«9 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 



•00252' 
•0025 3' 
M0254' 
#00255' 
•00256* 
•00257' 
•00260' 
•00261 ' 
•00262' 
•0026 3' 
•00264' 
000265' 
•00266' 
•00267' 
•00270' 
•00271 ' 



•00272' 
000273' 
•00274' 
•00275' 
•00276* 
000277' 
•00300* 
•00301 * 
•00302' 
•00303' 
•00304' 
•00305' 
•00306' 
•00307* 
•00310' 
•00311 ' 



000312' 
00031 3' 
•00314' 
iJ00315' 
•0031b' 



000 


ECOUNTl ByT£ 




000 


• BYTE 




000 


BYTE 




000 


.BYTE 





00IS 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


• BYTE 





000 


.BYTE 





000 


.BYTE 






; 

;MULTI>OROP STATION ADDRESS TABLE 
>BYTE IS THE MULTI-DROP STATION ADDRESS 
;F0R LOGICAL LINE 0, BVTC 1 IS PO" LqCICAL LINE 1> 
;THIS ENTRY ONLY HAS HEANIHG IF CORRESPONDINS 
;PYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SET 
;AND BIT 5 OFF, IE NULTI-DrOP SLAVE TO BE TESTED 



000 


MDATAB: .BYTE 





001 


.BYTE 


1 


002 


.BYTE 


3 


003 


.BYTE 


3 


004 


.BYTE 


4 


005 


.BYTE 


S 


006 


.BYTE 


6 


1407 


.BYTE 


7 


010 


.BYTE 


10 


Oil 


.BYTE 


11 


012 


.BYTE 


12 


013 


.BYTE 


13 


014 


.BYTE 


14 


015 


.BYTE 


15 


016 


.BYTE 


16 


017 


.BYTE 


17 



HULTI-OROp STATION ADDRESS MENU TABLE 
THIS TABLE INDICATES TO ANY LINE RUNNING AS 
MULTI-DROP MASTER, HHICH STATION ADDRESS TO 
; ATTEMPT TO EXERCISE ON THE MULTI-DROP LINE 
;IT ALLOWS UP TO 15 DIFFERENT STATIONS TO BE 
jTESTED ON A LINE. EACH BYTE HHICH IS NOTa-1 
; INDICATES A STATION AODRCSS TO BE TESTED. EACH 
.•STATION IS TESTED, BY THE ORDER OF THE TABLE, 
;UNTIL THE FIRST OCCURANCE OF A -I (BINARY 11111111) 



mdmtab: .byte 

.BYTE 
.BYTE 
.BYTE 
.BYTE 



NPBH DEC/Xll SlfSTEH EXERCISER MODULE 
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605 


•00317' 


377 




606 


00032a' 


377 




607 


000321 ' 


377 




608 


•00322' 


377 




609 


0^0323' 


377 




610 


•00324' 


377 




611 


000 325' 


377 




612 


0^0326' 


377 




61 3 


•00327' 


377 




614 


■00330' 


377 




615 


000331 ' 


377 




616 








617 








618 


B00332' 


016700 


177456 


619 


000336' 


901082 




62a 


000340' 


104403 


000000* 


621 


000344' 


012705 


000000* 


622 


000350' 


004567 


0000O0C 


623 


000354' 


012767 


000200 


624 


000362' 


012701 


000232* 


625 


000366' 


00b 300 




626 


000370' 


103003 




627 


000372' 


156741 


004262 


628 


000376' 


000402 




629 


•00400' 


146741 


004254 


630 


000404* 


1 45061 


000040 


631 


000410* 


020127 


000211* 


632 


000414* 


001364 




633 


000416* 


026727 


004236 


634 


•00424* 


001 406 




635 


■00426' 


012767 


000040 


636 


000434' 


016700 


177356 


637 


000440' 


000750 




638 


000442' 


005201 




639 


000444' 


016700 


177336 


640 


•00450' 


135721 




641 


•00452' 


100013 




642 


•00454' 


012761^ 


000400 


643 


000462' 


■ 12711) 


000002 


644 


000466' 


112767 


000202 


645 








646 


000474* 


016760 


177474 


647 


000502' 


062700 


000010 


648 


000506' 


020127 


000332' 


649 


00051 2' 


001 356 




650 


000514* 


r05067 


004136 


651 


000520' 


005767 


0000000 


652 


000524' 


001405 




653 


•00526' 


104107 


000000' 


654 


•00532* 


1 04407 


oreoow' 


655 


000536* 


a»07b6 




656 








657 








658 








659 








66« 
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.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



2«t 

3(1 



411 
5tl 



8S: 
9S: 



MOV 

BNE 

ENDS 

HOV 

JSR 

MOV 

MOV 

ASL 

BCC 

BISB 

BR 

BICB 

CLRB 

CMP 

BNC 

CMP 

BEO 

HOV 

MOV 

BK 

INC 

HOV 

TSTB 

BPL 

MOV 

MOV 

MOVB 

MOV 
ADO 
CMP 
BNE 
CLR 
TST 
PEO 



DVIDI.RO 
It 
BEGIN 

•BEGIN, RS 

RS.DEVSET 

f2O0>MASK 

IPHYTAB*16.>R1 

R0 

4t 

HASK,-(R1) 
5t 

HASK,-(R1) 
32. (Rl) 
Rl,tPHYTAB-l 
3S 

MASK, t40 
bt 

140, MASK 
SRI, Re 
2* 

Bl 

ADDRfRO 

(RD* 

8( 

1400, 4(R0) 
•2, (Rn) 
•202, SYNC*! 

SYNC,2(R0) 
•10, R0 

«1,|PHYTAB«I6. 
7» 

MSGCNT 

WAIT 

RESTRT 



BREAKS, BEGIN 
BREAKS, BEGIN 
BR 91 



I GET DEVICES TO Bb TESTED 
(ANY ACTIVE? 

S 

(PREPARE FOR NXT JSR 
(GO ASK FOR PARAMETERS 
(SET UP MASK 

(GET END OF DEVICE TABLE 

(CHECK EACH BIT 

;8R IP HOT ON 

(SET THIS LINE ACTIVE 

(CLEAR THIS LINE 

(CLEAR ECOUNT TABLE 

(DONET 

(BR ir NOT 

(BEEN HERE BEFORE? 

(BR IF YES 

(SET UP MASK 

(GET SLAVE/MASTER INFO 

(GO SET UP 

(GET PHYTAB AOOR 

(GET DEVICE ADOR 

(DEVICE ACTIVE? 

(BR IF NOT 

(RESET DEVICE. 

(SET DATA TERM READY 

(SET BITS FOR DEC MODE AND 

(INHIBIT AUYO-CRC 
(WHITE PARAMETER CONTROL RLGISTEP 
(BUMP R0 
(DONE? 
(BR IF NOT 

(COUNTS WHEN TO DO SUMMARY 
(LINES SET UP? 
(BK IF YES 

[TEMPORARY RETURN TO MONITOR.... 
;TNEN CONTINUE AT NEX1 INSTRUCTION. 
(WAIT TILL WAIT IS CLEARED BY NET2 



THBUUGH-OUT THF PHOGrAH MANY LOCATIONS ABE REFERENCED 
OFF OF (B4). THIS IS * MEANS OF KEEPING TWO SETS OF 
V»RI»BLF:S, ONE FOR E»CH OF THE ACTIVE LINES. 
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SEQ 0107 



661 
662 
663 
664 
665 

667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 



JR4 ALWAYS CONTAINS » 9 If THE PROGRAM IS CURRENTLY 
.•REFERENCING LINE Op A 2 IF IT IS REFERENCING 
>LINE 1. 



1100540° 


•05767 


000000G 


HESTRTJ 


TST 


PNPCNT 


;HAS THERE BEEN A POMERFAIL 


»00544' 


001402 






BEQ 


It 


;C0NTINUE IF NOT, 

3 


»00S46' 


1134403 


000000' 




ENDt< 


iBEGIN 


»a0552' 


095004 




1 s : 


CLR 


R4 


-FIRST ACTIVE LINE 


900554' 


916706 


177244 




MOV 


SP0INT,R6 


JiNIT STACK 


000560' 


005067 


004246 




CLR 


DR0PR4 


jCLEAR ALL EXIT FLAGS 


900564 


005067 






CLR 


DR0PR442 




M0570' 


005067 


004242 




CLK 


DTERB4 




96057 4' 


e05<t67 


004248 




CLR 


D-EBR4+2 




•00600' 


905067 


004236 




CLR 


CRCR4 




900604' 


005067 


004234 




CLR 


CRCR4«2 




900610' 


005067 


004232 




CLR 


RCT0R4 




900614' 


005067 


004230 




CLR 


RCT0R4*2 




900620' 


005067 


004226 




CLR 


TXT0R4 




90062 t' 


005067 


004224 




CLR 


TXTOR4*2 




900630' 


005067 


004222 




CLR 


FDBKR4 




9006 34' 


005067 


004220 




CLR 


FDBKR4^2 




900640' 


005067 


004216 




CLR 


CHKR4 




900644' 


005067 


004214 




CLR 


CHKR44'2 




900650' 


905067 


004154 




CLR 


PA5TIM 


jCLR PASS TIME FLAG 


900654' 


005067 


004146 




CLR 


BRKFLG 


jCLR FLAG THAT SAYS WE'RE IN BREAK 


900660' 


912767 


000212' 


003774 


MOV 


•PHYTAB.NXTLIN 


;POInTS TO NEXT LInE TO TEST 


000666' 


005067 


004026 




CLR 


LIHACT 


■SHOH NO LINES ACTIVE 


900672' 


926727 


003764 


000232' GETNXTJ 


CMP 


NXTLIII,IPHYTAB»16,»D0NE all LINES? 


900700' 


901440 






BEQ 


DONE 


;BR IF SO 


900703* 


016700 


fl03754 




NOV 


NXTLIN.R0 


iGET ADDR OF NEXT LINE 


900706' 


010064 


004726* 




NOV 


R0,CUrLiN(R4) 


;SAVE IT 


•0071 2' 


105060 


000020 




CLRB 


20(R0) 


jCLEAR RETRY COUNT FOR THIS LINE 


900716' 


005267 


003740 




INC 


NXTLIN 


;BUMP FOR NEXT TIME 


900722' 


111000 






MOVB 


(R0),R0 


jGET PHYSICAL LINE BYTE 


000724' 


002362 






BGC 


GETNXT 


)BR BACK IF BIT 7 NOT ON 


»>00726' 


016701 


177054 




HOV 


ADDRfRl 


fSET UP TO CALC ADDR 


9007 32' 


004767 


004130 




JSR 


PCGETADR 


;G0 CALC ADDR 


•007 36* 


010164 


004664' 




HOV 


R1«DVASAV(R4) 


;SAVE DVA FOR THIS LINE 


900742' 


016701 


177042 




HOV 


VECTOR, Rl 


jSET UP TO CALC VECTOR ADDR 


•007 46* 


004767 


004114 




JSR 


PCGETADR 


;G0 CALC 


900752* 


010164 


004670' 




HOV 


R1,VCTSAV(R4) 


(SAVE IT 


900756' 


905267 


003736 




INC 


LINACT 


jSHOH A LINE'S RUNNING 


900762' 


005064 


004742' 




CLR 


L00P(R4) 


;CLEAR ITERATION COUNT 


900766' 


005364 


005022' 




CLR 


RCVT0tR4) 


jCLR REC TIME OUT COUNT 


•90772' 


032700 


000020 




BIT 


129, R^ 


jMULTI DROP OR NOT? 


(»0077b' 


001377 






BNE 


HD 


;BR IF IT IS 


001000' 


000427 






BR 


PP 


jBR IF NOT TO P TO P 


901002' 


005767 


003712 


f 

DONE: 


TSI 


LINACT 


;ANY LINES RUNNING? 


001086* 


&014e2 






SEO 


1$ 


jBB IF NO 


001010' 


000167 


003346 




JMP 


TIMCHK 


;IF YES GO CHECK FOR TIME OUT 


901014' 


i»12701 


000212' 


1$: 


HOV 


IPHYTABrRl 


}MUST CHECK IF HAYBE ALL LINES DROPPED 


•01020' 


105721 




2t: 


TSTB 


(RD* 


;IS THIS LINE STILL SELECTED? 


•01022' 


100405 






BHI 


3t 


jBR OUT IF YES 
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717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 



754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 



901024' 


022701 


000232* 


901030' 


001373 




901032' 


104403 


000000* 


901036' 


012767 


000001 


901044' 


005767 


003756 


001050' 


001002 




901052' 


000167 


003420 


901056' 






901056' 


1 04400 




001060' 


012764 


000001 


001066' 


032700 


000100 


901072* 


001402 




901074' 


000167 


0005 1 2 


901100* 


005064 


005016' 


901104* 


032700 


000040 


901110* 


001 141 





005016' PPl 
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CMP 


IPHYTAB+16.,R1 


;CHECKeO ALL 167 


BNE 


2t 


(BR BACK IF NO 


ENDI, BEGIN 


; 


HOV 


(IfPASTIM 


}SHOW IT IS TIME FOR ENOPAS 






}FOR SREAK LOOP 


TST 


BRKFLG 


;ARE HE IN A BREAK LOOP? 


BNE 


4« 


jBR IF UE ARE 


JNP 


EPASS 


}G0 DO END OF PASS 


EXIT* 




jEXIT TO HONITOR. MODULE WAIT FOR INTERUPT, 


TO POINT 






MOV 


ll,FDFLAG(R4) 


;SAY HERE FULL DUPLEX 


BIT 


<100f R0 


;HALF OR FULL DUPLEX? 


BEQ 


It 


;BR IF HALF 


JHP 


PPFD 


;JMP TO FULL DUPLEX ROUTINE 


CLR 


FDFLAG(R4) 


{CORRECT FLAG CAUSE HERE NOT FD 


BIT 


f 40,R0 


(SLAVE OR MASTER? 


BNE 


PPHDM 


(BR IF MASTER 


TO POINTi 


r HALF DUPLEX, 


SLAVE 



001112' 








PPHDSt 




•01112' 


016464 


004674' 


004700' 




MOV 


i»ail20' 


P16764 


009000G 


004704' 




HOV 


901126' 


062764 


000012 


004704' 




ADD 


901134' 


016764 


177030 


004710' 




MOV 


901142* 


066764 


177022 


004710' 




ADD 


901150' 


004767 


000766 






JSR 


901 154' 


900462 








BR 


901156' 


»00401 






ONERECi 


BR 


001 160' 


000432 








BR 


901162* 


012764 


000000G 


0«4752' 


is: 


MOV 


901170* 


016764 


000000G 


004762' 




HOV 


991176* 


062764 


000012 


004762' 




ADD 


901204* 


012764 


000004 


004766' 




MOV 














901220' 


994767 


002744 






JSR 


901224' 


016764 


176740 


004772' 




HOV 


901232' 


004767 


002172 






JSR 


001236' 


000423 








BR 


001240' 


042774 


000004 


004664' 




BIC 


901246' 


905264 


004742' 




PPHDS2J 


INC 


901252' 


926764 


176710 


004742' 




CHP 


901260' 


093314 








BGT 


001262' 


005367 


003432 




LNDONE: 


DEC 


901266* 


916403 


004664' 






MOV 


•01272* 


042713 


177775 






BIC 


901276' 


?l»506 3 


000004 






CLR 


•01302' 


00i*167 


177364 






JMP 


901306' 


042774 


000004 


004664' 


derr: 


BIC 


901314' 


912703 


177777 






HOV 


901320' 


000401 








BP 


901322' 


00500 3 






FFRR: 


CLR 



AHSGBF(R4},RECADR(R4) ; SET UP INPUT AREA 
MSGSIZ,RECCNT(R4) ;SET UP COUNT 
I12,RECCNTCR4} (CORRECT FOR HEADER AND CRC 
TIHELN,RECTIH(R4) >HOM LONG TO IkAIT 
TIHELN,RECTIH(R4) (DOUBLE IT 
PC, REC (GO RECEIVE DATA 

FERR ;BR TO ERROR ROUTINE 

It (HAKE THIS A NOPc240 TO 

PPHDS2 (DO ONC-HAY-IN (REC. ONLY) 

iHSGHED,TXA0RlCR4) (SET HESS ADR 
HSGSIZ,TXCNT1(R4} (GET MSG SIZE 
•12,TXCNT1(B4) (CORRECT FOR HEADER AND CRC'S 
I4,TXCNT2(R4) (SEND 4 FILLS AFTER MSG 



PCCTS 
TIMELH,THTTIH 
PCTMT 
DERR 

•4,9DVASAV(R4 

L0OP(R4) 
LPCNT,L00P(R4 
PPHDS 
LINACT 

DVASAV(R4),R3 
1177775, (R3) 
4(R3} 
GETNXT 



I4,9DVASAV(R4) 
•-1,R3 

FERPi 
R3 



(GO GET CLEAR TO SEND 
(R4) (GIVE 'EM 1/2 MINUTE 
(GO TRANSMIT 
(BR TO ERROR ROUTINE 
(KILL REO TO SEND 
(COUNT AN ITERATION 
(DONE ENOUGH! 
(NO, SO DO ANOTHER TIME 



(GET DEVICE ADDRESS 
(KILL ALL BUT DTP 
(KILL TRANSMITTER TOO 
(YES DO NEXT LINE 



(KILL REU TO SEND 

(SET FLAG FOR WHICH RETURN 



(SET FLAG (OR mHICH REIURn 
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SEO 01 e9 



773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
80S 
fl09 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
836 
827 
828 



001 324' 


016401 


004726 • 




FERRl I 


MOV 


CUBLIN(R4],R1 


JGET LINE t ADDR 


801330' 


105361 


000020 






INCB 


20(R1) 


:COUNT 


AN ERROR 


Ml 334' 


1 36 167 


000020 


17(!63fi 




CMPB 


20(R1 )fERRLVL 


jTOO MANY ERP0SS7 


001 342' 


003003 








BGE 


DROP 


;BR IF 


YES 


•01344' 


B05703 








T5T 


R3 


;D0 A 


IMT OP DO A REC? 


001 346' 


001703 








BEQ 


ONEREC 


;BR IF 


TMT 


001350' 


0007 36 








BR 


PPHDS3 


:G0 TRY AGAIN 


001352' 


14371 1 


000300 




DROP! 


BICB 


• 300f CRl ) 


:DROP 


THE LINE FROM TEST 


001356' 


005264 


005032' 






INC 


DR0PR4(R4) 


ISEE NOTE 1 IN FRONT OF LISTING 


001 362 ' 


t 0441 1 


011206' 


000000' 




HSGNIfADROP.BCCIN 


;ASCII 


MESSAGE CALL *ITH COMMON HEAUEP 


001370* 


905767 


003436 






ISI 


DR0PR4 






001 374 ' 


001 403 








BEQ 


It 






•01376' 


005004 








CLR 


R4 






•01400' 


000402 








BR 


3t 






001402' 


012704 


000002 




l(: 


MOV 


13, R4 






001406' 


005364 


005032' 




2$i 


DEC 


DR0PR4(R4) 






•01412' 


000723 








BR 


LNDONE 














JPOINT 


TO POINT 


HALF DUPLEX MASTER 




•01414' 








PPHDM: 










001414' 


012764 


000000G 


004752' 




MOV 


•MSCHE0#TXaDR1(R4) 


IGET MSG ADDRESS 


•01422' 


016764 


000000G 


004762' 




MOV 


MSGSII,TXCliTl(R4) 


;GET MSG SIZE 


001430' 


063764 


000012 


004762' 




ADD 


il3>TXCNTl(R4) 




;CORRECT FOR CRC AND HEADER 


001436' 


013764 


000004 


004766' 




NOV 


t4,TXCNT3(R4) 




(SEND 4 FILLS AFTER MSG 


•01444' 


013764 


011303' 


004756* 




NOV 


iriLL,TXADI)3(R4) 






001452' 


004767 


002512 






JSR 


PC, CIS 




;G0 GET CLEAR TO SEND 


001456' 


016764 


176506 


004772' 




NOV 


TIHCLN,TMTTIH(R4) 


jGIVE 'EM 1/2 MINUTE 


•01464' 


004767 


001740 






JSR 


PC, TNT 




jGO TRANSMIT 


001470' 


0004 34 








BR 


GERR 




;ERROR RETURN 


•01472' 


043774 


000004 


004664' 




BK 


I4,»DVASAV(R4) 




;KILL REQ TO SEND 


•01500' 


000401 






ONETMTI 


BR 


It 




;MAKE THIS A NOP>240 FOR ONE 


















jWAY OUT, TMT ONLY. OTHER SIDE 


















;0F LINE MUST DO ONE WAY IN. 


001502' 


000417 








BR 


PPHDM3 




;USED FOR ONE NAY OUT ONLY 


•01504' 


016464 


004674' 


004700' 


It: 


HOV 


AHSCBr ( R4 ) , REC ADR C R4 } 


jSET UP INPUT AREA 


•01512' 


016764 


000000G 


004704' 




MOV 


MSGSIZ,RECCNT(R4) 


SSET UP COUNT 


001520' 


063764 


000012 


004704' 




ADD 


•12,ReCCNTlR4) 




;CORRECT FOR HEADER AND CRC 


001536* 


016764 


176436 


004710' 




NOV 


TIHELN,RECTIM(R4) 


;GIVE EM 1/3 MINUTES 


•01534' 


004767 


000402 






JSR 


PC, REC 




;G0 RECEIVE 


091540* 


000413 








BR 


HERR 




;ERR0R RETURN 


001542' 


005264 


004742' 




PPHDM3I 


INC 


L00P(R4} 




jCOUNT AN ITERATION 


•01546' 


026764 


176414 


004742' 




CHP 


LPCNT,LO0P(R43 




;D0NE ENOUGH? 


001554' 


003317 








BCT 


PPHDH 




;BR IF NOT 


•01556* 


000167 


177500 




[ 


JHP 


LNDONE 






•01562' 


042774 


000004 


004664' 


GEKR! 


BIC 


t4,aDVASAV(R4) 




;KILL REQ TO SEND 


•01570' 


016401 


004736' 




HERRt 


MOV 


CURLIN{R4} ,R1 




IGET LINE • ADDRESS 


001574' 


105261 


000020 






INCB 


20(R1) 




jCount an error 


•01600' 


126167 


000020 


176364 




CMPB 


20(R1),ERRLVL 




jTOO MANY ERRORS? 


•01606' 


003361 








BGE 


DROP 




>BR ir YES 


001610' 


000754 








BR 


PPHDM3 




>G0 TRY AGAIN 
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839 
830 
831 
833 
833 
834 
835 
836 
837 
838 
839 
840 
841 
9 4 2 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
873 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
B83 
884 



jPOINI -TO-POINT FULL DUPLEX 



•01612' 


033700 


000040 




PPFOI 


BIT 


140, R0 


;HASTER OR SLAVE? 


•01616* 


001003 








BNE 


it 


;BR IF MASTER 


001630' 


013764 


177777 


005016' 




HOV 


•177777, rDFLAGtR4) ;SHOW ITS SLAVE 


•01636' 


004767 


002336 




It: 


J$R 


PCCTS 


;G0 GET CLEAR TO SEND 


001632' 


016464 


004674' 


004700' 


PPFDl 1 


MOV 


AHSGBF(R4),RECADR(R4) ;GET INPUT AREA 


001640' 


016764 


0000O0G 


004704' 




MOV 


HSGSIZ,RECCNT(R4) ;SET UP COUNT 


•01646' 


063764 


000013 


004704' 




ADD 


I12,RECCNT(R4} 


;CORRECT FOR CRC AND HEADER 


001654' 


004767 


000362 






JSR 


PC, REC 


;G0 GET RECEIVING STARTED 


•01660' 


000509 








BR 


JERR 


|REC ERROR RETURN 


•01662' 


000441 








BR 


FDRCDN 


;REC DONE 


•01664' 


013764 


000000G 


004752' 




HOV 


iMSCHGD,TXADRl(R4) {FULL DUPLEX RETURN FROM REC 
















iGEI IKT ADDR 


•01673' 


016764 


000000G 


004762' 




HOV 


HSGSIZ,TXCNT1(R4) ;CCT TMT COUNT 


•01700' 


063764 


000013 


004762' 




ADD 


•12,TXCNT1(R4) 


^CORRECT FOR HEADER AND CPC 


•01706' 


013764 


000004 


004766' 




HOV 


*4,TXCHT2(R4) 


;SEND 4 FILLS AFTER MSG 


•01714' 


013764 


011203' 


004756' 




HOV 


triLL,TXADR2(R4) 




•01732' 


004767 


001503 






JSR 


PCTHT 


J CO TMT 


•01726* 


000455 








BR 


JERR 


;TMT ERROR RETURN 


•01730* 


000413 








BR 


It 


J GOOD TMT DONE RETURN 


•01732* 


013700 


002130' 






HOV 


(FDTO,R0 


jFULL DUP RETURN, SET UP FOP TIME OUT 


•01736* 


016701 


176226 






HOV 


TINELN,R1 


iGIVE EM 1 MINUTE 


•01742* 


066701 


176223 






ADD 


TIHELN,R1 




•01746' 


013702 


000000 






HOV 


• 0,R2 


;SHOH ITS A REC WAIT 


•01752' 


000167 


002330 






JHP 


TIHKEP 


jGO MAIT 


•01756* 


012764 


000001 


005003' 


is: 


HOV 


il,TMTD0N(R4) 


tSHOW TNT IS DONE 


•01764' 


104400 






> 


EXITt 




lEXIT TO MONITOR. MODULE WAIT FOR INTERUPT 


•01766* 


005764 


005002' 




FDRCDNI 


TST 


T»TD0M(R4) 


J IS TMT DONE YET? 


•01772* 


001030 








BNE 


4t 


:BR IF YES 


•01774* 


005364 


005056' 






INC 


rDBKR4(R4) 


tSEE NOTE 1 In FRONT oF LISTING 


002000* 


104407 


000000* 






BREAKt 


BEGIN 


flEMpOBARY RETURN TO MONITOR.... 


•03004' 


104407 


000000' 






BREAKt 


BEGIN 


;THEN CONTINUE AT NEXT INSTRUCTION. 


•02010' 


005767 


003042 






TST 


f DBKR4 




•03014' 


001402 








BEQ 


2t 




003016' 


005004 








CLR 


R4 




003020' 


000402 








BR 


3t 




002032' 


013704 


000002 




2t: 


MOV 


12, R4 




•03026' 


00S364 


00S056' 




3t: 


DEC 


FDBKR4(R4) 




•02032* 


000755 








BR 


FDRCDN 


;BR AND IxAIT SOME MORE 


•02034* 


005264 


004743' 




4tt 


INC 


L00P(R4) 


;COUNT AN ITERATION 


•03040' 


036764 


176132 


004747' 




CMP 


LPCNT,L00P{R4) 


;DONE ENOUGH 


1102046' 


003271 








BGT 


PPFDl 


;N0, GO DO MORE 


•02050' 


043774 


000004 


004664' 




BIC 


I4,8DVASAV(R4) 


;KILL REO TO SEND 


•02056' 


0B0167 


177300 






JMP 


LNDONE 












;FD TMT 


ERROR 






•02062' 


013761 


000001 


005002' 


JERp: 


MOV 


I1,TMTD0N{r4) 


;DON'T BOTHER i«AniNC FOR TMT 


•02070' 


013764 


177777 


004732' 




MOV 


»177777, AB0RT(H4 


) fTELL INT. ROUTINES TO GIVE UP 


002W76' 


016401 


004726' 






MOV 


CUPLIN(P4),R1 


;GET CURRENT LINE iNFO 


•03102' 


105261 


00003(! 






INCB 


20(pn 


;COUNT ANOTHER ERROR 


903 l«6' 


1 ' 67 








CPS 


2'^ <?.!•! jEBRLVL 


jTOO MANY ERR0K5? 
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BBS 
886 
887 
888 

889 
S9ti 
891 
892 

89J 



002114' 102724 
ta2116* 942774 
•02124' 000167 



•02130' 012764 
•02136* 000167 



000004 
177222 



002062' 
001120 



004664' 



004746' 



BIC 
JMP 



FORCDH 

l4,fDVASAV(l)4) 

DROP 



jNO GO TRJ fcOAIN 
;KILL REO TO SEND 
;GIVt UP ON THIS LINE 



FULL DUPLEX RECEIVER TINCOUTS COME HERE 
FDTO: MOV IJBRR,RECRTN(R4) ISET UP CORRECT RETURN 

JMP RDTO iGO REPORT REC TIME OUT 
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894 








895 








896 








897 








H98 








899 








90«» 








001 


002142' 


012664 


004746' 


902 


B02146' 


016401 


004670* 


903 


&a2152' 


012711 


002252' 


904 


002156' 


060421 




905 


002160' 


1 16711 


175626 


906 


002164' 


005064 


004722' 


907 


•02170' 


012764 


000002 


908 


002176' 


005764 


005016* 


909 


•02202' 


001410 




9ia 


•02204' 


052774 


000120 


911 


•02212' 


016402 


004746* 


912 


902216' 


062702 


000004 


913 


•02222' 


010207 




914 


•02224' 


012700 


003262' 


915 


•02230' 


01640! 


004710' 


916 


•02234' 


012702 


000000 


917 


002240' 


052774 


000120 


918 


002246' 


000167 


002034 


919 








920 








921 








922 


002252' 


000405 




923 


•02254' 


010446 




924 


•02256' 


910346 




925 


•02260' 


012704 


000002 


926 


•02264' 


000403 




927 


•02266' 


010446 




928 


002270' 


01^346 




929 


•02272' 


005001 




oia 




HI 64H3 


11104664 ' 


931 


002300' 


005764 


004722' 


932 


•02304' 


001403 




933 


•02306' 


942713 


000560 


934 


002312' 


000460 




935 


•02314' 


011364 


004736' 


936 


•02320' 


016346 


000002 


937 


•02324' 


005764 


004714' 


938 


•02330' 


e0l421 




939 


•02332' 


122716 


000220 


940 


•02336' 


001406 




941 


•02340' 


126716 


175630 


942 


•02344' 


001440 




943 


•02346' 


042713 


000020 


944 


•02352' 


000435 




945 


•02354' 


005064 


004714' 


946 


•02360' 


005764 


005016' 


947 


002364' 


100003 




948 


002366* 


01 2764 


0000 li?> 


949 


•02374' 


00S7b7 


175564 



MACYll 27(732) 20-MAY-76 12x29 PAGE 20 



; SUBROUTINE TO RECEIVE DATA 
; CALLED WITH A JSR PC,RCC 

>AFTEB SETTING LOCATIONS RECADR(R4) , RECCNT(R4) , PECTIM( R4) , VCTSAV ( R4 ) . 
;AND DVASAV(R4). RETURNS ON ERROR OR RETURNS 
!2 BtTSS PAST CALL IF NO ERROR 

REC! 



MOV 


(R6)«,RECRTN(R4) 


;SAVE RTN ADDR 


MOV 


VCTSAV(R4),R1 


}GET VECTOR ADR 


MOV 


tRECiNT, (Rl) 


}MOVE IN INT. ROUTINE ADR 


ADD 


R4,{R1)* 


;CORRECT FOR WHICH LINE 


MOVB 


BR1,(R1] 


;MOV IN PRIORITY'LEVEL 


CLR 


AB0RT(R4] 


{CLEAR ABORT FLAG 


MOV 


I2.SYNCNT(R4) 


jMUST GET 1 SYN CHARACTERS 


TST 


FDFLAG(R4) 


;FULL DUPLEX? 


BEO 


It 


iBR IF NOT 


BIS 


I120>*DVASAV(R4) 


jKICK OFF REC 


MOV 


RECRTN(R4),R2 


}GET RETURN ADDRESS 


ADD 


14, R2 


jFD RETURN 


MOV 


R2.R7 


; RETURN 


MOV 


•RDTO,R0 


{RETURN ADDR 


MOV 


RECT!M(R4},Ri 


I'riOH LONG TO WAIT 


MOV 


10, R2 


{SHOWS ITS A REC WAIT 


BIS 


tl20,»DVASAV(R4) 


{START THE RECIEVER. 


JMP 


TIHKEP 


{EXIT TO TIMKEP AND WAIT 


ER INTERRUPT ROUTINE 




BR 


It 




MOV 


R4,>(R6) 


{SAVE R4 


MOV 


R3,-(R6) 


{SAVE R3 


MOV 


i2,R4 


{SET UP FOR SECOND LINE 


BR 


2t 




MOV 


R4,>(R6) 


{SAVE R4 


MOV 


R3,-(R6) 


{SAVE R3 


CLR 


R4 


{SET UP FOR FIRST LINE 


MOy 


DVlSAVr R41 . 


•GET THE DEVICE ADDRESS 


TST 


AB0PT(R4) 


{GIVE UP? 


BEO 


3t 


{BP IF NO 


BIC 


1560, (R3) 


{DISABLE REC INT.S 


BR 


7t 


{AND LEAVE 


MOV 


(R3),eRRWD(R4) 


{SAVE STATUS 


MOV 


2(R3),-(R6) 


{SAVE CHARACTER AND EPR BI 


TST 


SYHCNT(R4) 


{ARE WE IN SYNC 


BEO 


5t 


{BR IF YES 


CMPB 


1220, (R6) 


{IS IT A OLE? 


BEO 


4t 


{BR IF YES 


CMPB 


SYNC, (R6) 


;IS IT A SYNC CHAR? 


BEQ 


6t 


{YES, IGNORE IT 


BIC 


120, (83) 


{RtSYNC IF NOT 


BR 


6$ 


{LEAVE 


CLR 


SYNCNT(B4) 


{SHOW WE'RE IN SYN 


TST 


F0FLAG(R41 


{FD SLAVE? 


BPL 


5t 


{BR IF NOT 


MOV 


I10,TSYWCTCB4) 


{LET TMT GO IF FULL DI!P 


TST 


REPORT 


{REPORT ERH NOW OR LATER? 
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950 


003400 ' 


00101 3 


95 1 


902 402 ' 


1 0576 4 


952 


003406 * 


1 90040 


95 3 


00341 0' 


0057 1 6 


954 


00341 2 ' 


1 00006 


955 


00341 4 ' 


91 2b64 


**56 


002420 ' 


042764 


957 


002426 ' 


0004 3 1 


959 


0024 30 


111674 


959 


0024 34 ' 


005364 


960 


002440 ' 


005 364 


96 1 


00 24 44' 


003 406 


962 


002 446 


005726 






052 7 1 3 






01 2603 






01 3604 


OA 


002460 


000002 


OA7 


003 462 


01 6467 








969 




0427 1 3 




02476 ' 


1 2603 


971 


00250^ 


01 2604 


97 2 


003502 




97 3 








002502 


000004 


975 






976 








* 

0025 10 




978 


0025 12' 


01 3603 


979 


00 2 5 1 4 * 


042774 


98id 


00 2522 


01 3767 


981 


002530' 


060467 


992 


0025 3 4 * 


060467 




002540 


01 3604 


984 


C02542 




985 






986 


0025 42 


000004 


987 








00 2550 


00500 4 


QQO 


002552 ' 


&00402 


990 




01 2704 


991 


002560 






002566 


016467 




002574 ' 


01 6 401 


994 


002600' 


111103 


995 


002602 ' 


042702 




002606 ' 


005764 




00261 2 * 


1 0001 3 


998 


00261 4' 


^1 0267 




002630 




1000 






1001 


00262b' 


1 04404 


1002 






10M)3 


002632' 


104400 


1004 






1005 







B047 36' 

004700' 
004700' 
004704' 



004732' 
000560 



000000' 



0046b4' 
000014 



000560 
002550' 
000010 
000004 



002550' 000000' 





BNE 


511 


;BR IF LATER 






TSTB 


ERRMD(R4) 


;IS REC DONE BIT SET? 






BPL 


RERR 


;BP IF NOT 






TST 


(R6) 


{DATA ERPOR? 






BPL 


51t 


;BR ir NO DATA ERR 






NOV 


(R6)+,ERRHD(R4} 


;SAVE INFORMATION 






BIC 


i 100000. e:rrhd(R4) ;use bit 15 fop 






BP 


RERR+2 






51 S ; 


MOVB 


(R6),*ReCADR(R4) 


;STORE THE CHAR 


A n our r c^n 




INC 


ReCADR(R4) 


,FOR NEXT TIME 






DEC 


RECCNT(R4) 


jCOUNT IT 






BLE 


BS 


;BK IF DONE 






TST 


CR6) + 


;FIX STACK 






Sn^ 


«520,(R3} 


; HEAD ANOTHER 
; RESTORE R3 








CR6)+,R3 






MOV 


(R61'»,R4 


; RESTORE R4 






RTI 




; RETURN 






MOV 


RECD(R4) r RPlR0«2 








TST 


(R6)t 


;FIX STACK 






BIC 


t560> (R3) 


{DISABLE REC INT.S 
{RESTORE RECS 






MOV 


(R6)+,R3 






MOV 


CR6)»,R4 






RPIRQl 












PIRO$ I 


rRECDN,BEGIN 


> RTI AND QUEUE 


UP TO CONTINUE AT 


HERP t 


TST 


IR6) + 


jFIX STACK 






MOV 


(R6)«,R3 


{RESTORE REG 






BIC 


t560.»DVA8AV(R4) 


{RESET THE RECEIVER 




MOV 


t2*,l«'»2 


{SET UP TO PIRO 


TO 




ADD 


R4,l**2 


{THE RIGHT PLACE 






ADD 


R4,ltt2 








MOV 


(R6)«,R4 


{RESTORE REG 




is: 











000002 
004664' 
004736' 
004726* 

177760 
004736' 

175234 
002000 



175262 3S: 
175256 



PIROtf 


2S«BEGIN 


{ RTI AND QUEUE UP TO CONTINUE M 


2S 


CLR 


R4 


{SHOW ITS LINE 




BR 


3S 






MOV 


12, R4 


jsHOH IIS LINE 1 




MOV 


DVASAV(R4),CSRA 


{SET UP FOR ERR CALL 




MOV 


ERRHD(R4),ACSR 


{SET UP FOR ERR CALL 




MOV 


CURLIII(R4),R1 


{GET ADDR OF CUR LINE BYTE 




MOVB 


(R1),R2 


{GET VALUE OF LINE t 




BIC 


•177760, R2 


{THROW OTHER BITS AWAY 




TST 


ERRW0(R4) 


; IS IT A DATA OR LINE CHANGE ERR 




BPL 


DATAER 


{BR IF DATA ERR 




MOV 


R3, ASTAT 


{SET UP ERR INDICATION 




ADD 


f0S2000,ASTAT 


{SHOW WHICH TYPE 




ERRORS 


, BEGIN 


{DATA SET CHANGE 




EXITS 




{EXIT TO MONITOR. MODULE WAIT FOR 


INTEPUl 
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1006 


002634* 


010267 


175214 




DATAERI 


MOV 


R2. ASTAT 


{SET UP ERR LINE • 


1007 


B02640* 


116467 


004737' 


175207 




MOVB 


ERRWDtl(H4),ASTATtl;aeT ERR TYPE 


10«l8 


••02646' 


042767 


107400 


175200 




BIC 


1107400, ASTAT 


{LEAVE ONLY ERR BITS 


1009 


002654' 


005264 


005036' 






INC 


DTERR4(R4) 


{SEE NOTE 1 IN FRONT OF LISTING 


1010 

1011 


•0266kt* 


1 04404 


000000' 






ERRORS 


(BEGIN 


{DATA ERR 


1012 
101 3 


002664* 


005767 


002146 






TST 


DTERR4 




1014 


002673' 


•014^2 








BEQ 


IS 




1015 


002672' 


005004 








CLR 


R4 




1016 


•02674' 


000402 








BR 


2S 




1017 


002676' 


012704 


000002 




ISl 


MOV 


12, R4 




1018 


»02702' 


005364 


005036' 




2t: 


DEC 


DTERR4(R4} 




1 (1 ■ 9 
1020 










'{CHECK 


ASTAI 


IN ERROR MESSAGE 




1021 










{0100XX 


a REC 


DATA PARITY ERROR 




1022 










{0200XX 


« FRAMING ERROR 




1023 










{0400XX 


a OVERRUN 




1024 










{XX > PHYSICAL 


LINE • 




1025 










J 








1076 


002706' 


•00167 


000324 






JMP 


RRET 


{GO DO AN ERROR EXIT 


1027 
102S 


















1029 


















1030 


002712' 


005004 






RECDNt 


CLR 


R4 


{SHOW WE'RE LINE 


1031 


•02714' 


•00402 








BR 


IS 




1032 


•02716* 


•12704 


000002 






MOV 


13, R4 


{SHOW WE'RE LINE 1 


1033 


•02722' 


042774 


177771 


004664' 


ISt 


BIC 


1177771, »DVA8AVtR4) {SHUT UP DEVICE 


1034 


002730' 


•05064 


005022' 






CLR 


RCVT0(R4) 


{RESET TIME OUT RETRY COUNT 


1035 


•02734' 


•05767 


000000G 




3S: 


TST 


CKNSG 


;IS CHECK MSG ROUTINE BUSY? 


1036 


•02740* 


•01420 








BEQ 


6S 


{BR IF NOT 


1037 


•02742* 


005264 


005062* 






INC 


CHKR4{R4) 


{SEE HOTE 1 IN FRONT OF LISTING 


1038 


•02746* 


194407 


000090* 






BREAKS, BEGIN 


{TEMPORARY RETURN TO MONITOR..,, 


1039 


•02752' 


1 04407 


000000* 






BREAKS 


, BEGIN 


{THEN CONTINUE AT NEXT INSTRUCTION. 


1040 


(•02756' 


005767 


002100 






TST 


CHKR4 




1041 


•02762' 


001402 








BEO 


4$ 




1042 


•02764' 


005004 








CLR 


R4 




1043 


•02766' 


000402 








BR 


5S 




1044 


•02770* 


012704 


000002 




4St 


MOV 


i2,R4 




1045 


•02774* 


005364 


005062* 




5s: 


DEC 


CHKR4(R4) 




1046 


•03000* 


900755 








BR 


3S 




1047 


003002' 


016402 


004674* 




6s: 


MOV 


AHSGBF(R4),R2 


{GET REC DATA 


1048 


•03006* 


026762 


177776G 


000006 




CMP 


HSG>2,6(R2) 


{IS HEADER CRC OK? 


1049 


003014* 


001407 








BEQ 


7S 


{BR IF OK 


1050 


•03016* 


905767 


175142 






TST 


REPORT 


{REPORT ERROR NOW? 


1051 


•03022' 


•01055 








BNE 


X5 


{BP IF LATER 


1052 


•03024' 


•12767 


003000 


175^23 




MOV 


•003090, ASTAT 


{SHOW ERR TYPE 


105 3 


•03032' 


000466 








PR 


RECERP 




1054 


•03034' 








7s: 








1055 


•03034' 


1 17467 


004726* 


P(^0040 




MOVB 


8CURLIN(R4) , 9S 


{GET LINf. 1 


1056 


•03042' 


042767 


177760 


0000)2 




BIC 


•177760,9$ 


{LEAVE ONLY LINE BITS 


1057 


•03050' 


005767 


1751 10 






TST 


REPORT 


{REPORT BAD DATA? 


1058 


•03054' 


001403 








bEO 


8S 


{BR IF YES 


1059 


•03056' 


052757 


I0000(< 






BIS 


•100000.9$ 


{SET FLAG TO CKHSG 


1060 


•03064' 


062702 


00001(1 




8$ : 


ADD 


110, R7 


{GET ADDR OF MSG 


196! 


•0307^' 


I»ie267 


0000 IP 






MOV 


R2,<»8*2 
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StQ 0115 



1062 


003074' 


004567 


000002G 






JSB 


B5,CKMSG+2 


;G0 CHECK MSG 


1063 


903100' 


900000' 








BEGIN 






1064 


•03102' 


000000 






9$: 









1065 


903104' 


080000 















1066 


»85SS6' 


900417 








BR 


a4 


jBAI; RETURN 


1067 


803110' 


066702 


000000G 






ADD 


HSGSIZ>R2 


•POINT IT TO MSG CBC, DATA WAS OK 


1068 


003114' 


126722 


000000G 






CHPB 


CRCMSG, (F7)* 


JCHECK 1ST CRC BITE 


1969 


»a3120' 


001025 








BNE 


CER 




1070 


003122' 


126722 


000001 G 






CHPB 


CRC«*SG+1, (B2) + 


;CKECK SECOND 


1071 


003126' 


001022 








BNE 


CER 




1072 


003130' 


062764 


000002 


004746' 




ADD 


f 2,RECRTN(R4) 


;G000 RETURN 


1073 


•031 36' 


905064 


005122' 




BRET: 


CLR 


RETTAB(P4) 


jKILL IMPENDING TIMEOUTS 


J 87 4 


903142' 


900114 


054746' 






■JmP 




tiND GO BACK 


1075 










; 








1076 










; 








1077 


903146' 


005767 


175012 




X4: 


TST 


REPORT 


J REPORT ERR NOW OB LATER? 


1078 


903152' 


001001 








BNC 


X5 


;BR ir LATER 


1079 


•03154' 


900770 








BR 


RRET 


;OTHERWlSE RETURN 


1080 










; 








1081 


903156' 


117402 


004726' 




X5: 


MOVB 


»CURl>IN(R4},R2 


;GET CURRENT LINE • 


1082 


003162' 


042702 


177760 






BIC 


*177769>P2 


7 


1083 


•03166' 


105262 


000252' 






INCB 


EC0UIIT(R2) 


;COU»I An ERROR FOR THAT LINE 


1084 


903172' 


900761 








BR 


RRET 


•AND RETURN 


1085 










; 








1086 










; 








1087 


903174' 


005767 


174764 




cer: 


TST 


REPORT 


jREPORT NOW Or later? 


1088 


903200' 


001 366 








BNE 


X5 


;BR IF LATER 


1089 


903202' 


012767 


004000 


174644 




HOV 


*0049«9>ASTAT 


J INDICATE ERROR TIPE 


1090 


903210' 


1 17402 


004725' 




RECErr: 


MOVB 


9CURLIN(R4)f R2 


jGENCRATE LINE t 


1091 


003214' 


042702 


177760 






BIC 


f 177760. R2 




1092 


903220' 


050267 


174630 






BIS 


R2. ASTAT 


Iadd in line t 


1093 


903224' 


005264 


005042' 






INC 


CRCR4(R4) 


{SEE NOTE 1 IN FRONT OF LISTING 


1094 












; *«««• 


»»•«•••«••••«••«••«••••*••»«•••••••*••••••••••••••••••••«• 


1 095 


003230' 


1 04404 


000000 ' 






ERRORS 


.BEGIN 


jCRC ERROR 


1096 












; •♦»♦•»♦»♦«»♦»•»••»»•»•••»•»♦•»♦•«»»»•*•»»»••♦»••••♦♦•♦»••♦•♦»«• 


1097 


903234' 


905767 


001602 






TST 


CRCR4 




1098 


003240* 


001402 








BEQ 


11 




1099 


903242' 


005004 








CLP 


R4 




1 100 


903244' 


000402 








BR 


2t 




1 101 


90324b' 


012704 


000t)02 




U: 


MOV 


«2,R4 




1 102 


903252' 


005364 


005042* 




28: 


DEC 


CRCR4(R4) 




1103 


903256' 


000167 


177654 






JMP 


RRET 


;BAD RETURN 


1 104 

1105 










# 

:pead time out 


ROUTINE 




1 106 










: 








1107 


003262' 


012764 


177777 


004722' 


RDTO: 


MOV 


#177777, AB0RT(R4) JTELL INT ROUTINES TO GIVE UP 


1108 


1103270' 


005264 


005022* 






INC 


RCVT0(R4) 


;COUNT ANOTHER RETRY 


1 109 


00 3 2 7 4 ' 


026467 


005022' 


1 74670 




CMP 


RCVT0(R4),ERRLV1 


jEllOUGH TBYS7 


1 110 


•03302' 


001043 








BNE 


4( 


;BR IF NO 


lUl 


003304' 


017467 


004664' 


174540 




MOV 


»0VASAV(R4),ACSR;GET RCC STATUS 


1112 


903312* 


042774 


177771 


004664' 




BIC 


f 177771. •DVASAV(R4) ;KILL ALL BUT DTP 


! 1 ! } 


903J20' 


016467 


004664' 


174522 




MOV 


DVASAV(R4).CSRA 


jPUT ADDR IN FOB EBB CALL 


1114 


903326' 


016401 


904726' 






MOV 


CURLIN(R4),R1 


;GET ADDR OF CUB LINE BYTE 


1115 


003332* 


111102 








MOVB 


CRl),R2 


jGET VALUE OF PHY LINE t 


1116 


903334* 


042702 


177760 






BIC 


1177760, B2 


STHBOW OTHER BITS AWAY 


1117 


003340' 


062702 


001000 






ADD 


tl00g,R2 


{INDICATE BEC TIMEOUT EBB 
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1118 
1119 
1120 
1121 
1122 

1124 
1125 
1 1 26 
1 127 
1128 

I 129 
1130 
1131 
1 132 
1133 

I I 34 
1135 
11 36 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1 145 
1 146 
1147 
1 148 
1149 
1150 
1151 
1152 
1153 

1155 
1156 
1157 
1158 
1159 
1 160 
1161 
1 162 
1163 
1164 
1165 
1 166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 



003344' 


010267 


174504 




MOV 


R3, ASTAT 


;SET UP FOR ER CALL 


903350' 


005264 


005046* 




INC 


RCT0R4(B4) 


;SEE NOTE 1 IN FRONT OF LISTING 










;••••••••••••••••••»••••«••«••«••••»••»••«•»•*••««•••••*••«•»••• 


D03354' 


1 04404 


000000* 




ERROR* 


BEGIN 


;REC TIMED OUT 










; ••••»••••••••••••«••••»•••••••*•••••••••*••«••••«•••••*•*••••«• 




0S5767 


301462 




TST 


SCT0R4 




003364* 


001402 






BEQ 


It 




•03366' 


005004 






CLP 


R4 




903370* 


000402 






BR 


2t 




993372' 


012704 


000002 


1$: 


MOV 


• 2,R4 




003376' 


005364 


005046* 


2$: 


DEC 


RCT0R4(R4) 




903402' 


005064 


005022' 




CLR 


RCVT0(B4) 


;RESeT BETBY COUNT 


003406* 


000174 


004746' 


3S: 


JHP 


»BECRTN(R4) 


; ERROR RTN 


•03412' 


016401 


004726' 


4$s 


MOV 


CURLXN(R«),R1 


;GET ADDp OF CUR LINE 


003416* 


1 05361 


000020 




DECB 


20(R1) 


;DEC ERROR COUNT TO CORRECT FOR 














;INSUING INC 


903422* 


005364 


904742* 




DEC 


L00P(R4) 


{CORRECT FOR LATER CALLING THIS A GOOD RUN 


903426* 


000767 






BR 


38 


{RETOBN 



J SUBROUTINE TO TRANSMIT DATA 
.•CALLED WITH A JSR PC,TMT 

;AFTEP SETTING LOCATIONS TXADRl(Rl), TXADR2(R4). TXCNTl ( R4 ) , TXCNT2 C P4 ) , TMTIM(B4), 
VCTSAV(R4), DVA5AV(R4), SUBROUTINE CTS MUST BE CALLED FIRST. 
RETURNS ON ERROR, RETURNS 2 BYTES PAST NORMAL RETURN 
IF NO ERROR 



903430' 


012664 


004776' 


THTJ 


MOV 


(SP)+,TMTRET(R4) 


ISAVE RTN ADDRESS 




903434' 


005064 


005002' 




CLR 


TMTD0N(R4) 


{INITIALIZE FLAG 




90344S1' 


916401 


904670' 




MOV 


VCTSAV(R4),R1 


{GET REC VECTOR ADDRESS 




•03444' 


062701 


000004 




ADD 


«4,R1 


{MAKE IT TMT VECTOR 




•03450' 


012711 


003604' 




MOV 


ITHTINT, (Rl ) 


{MOVE IN INT ROUTINE ADDRESS 




903454' 


060421 






ADD 


R4,(R1)+ 


{CORRECT FOR WHICH LINE 




903456' 


116711 


174330 




MOVB 


BRl, (Rl) 


•MOV IN PRIORITY LEVEL 




•03462' 


005064 


904722' 




CLR 


AB0RT(R4) 


{CLEAR TIME OUT ABORT FLAG 












MQV 


81S5TSYNCTCP4) 


•SEND TEN SYN CHARACTEBS 




903474* 


016403 


004664' 




MOV 


DVASAV(R4),R3 


•GE7 DEVICE ADDRESS 




903500' 


005764 


005016' 




TST 


FDFLAG(R4) 


{ARE WE FULL DUPLEX? 




903504' 


001417 






BEQ 


2S 


{BR IF NOT, ELSE 




903506' 


1 00003 






BPL 


1> 


{SKIP IF MASTER 




903510' 


012764 


177777 


005006* 


MOV 


»177777,TSYNCT(R4) ;HAKE TMT WAIT FOR A 


REC'D 


903516' 


012763 


000120 


000004 is: 


MOV 


1120, 4(R3) 


{SET TMT INT ENABLE 




003524' 


012763 


000400 


300306 


MOV 


i400,6(R3) 


{XMIT START OF MESSAGE. 




•93532' 


916402 


004776' 




MOV 


THTRET(R4) ,R2 


{GET BAD RET ADDR 




903536' 


0627 02 


000004 




ADD 


• 4,B2 


{MAKE IT THE FULL DUPLEX RETURN 


903542' 


910207 






MOV 


R2,P7 


{AND RETURN 




"03544* 


<»12700 


004036* 


2S: 


MOV 


•TXTO,B0 


{TIME OUT RETURN ADDR 




•03550* 


016401 


004772' 




MOV 


TMTTIHCR4),Rl 


{HOW LONG 10 WAIT 




903554* 


012702 


000004 




MOV 


• 4,R2 


{SHOW ITS TRANSMITTtP 




B0356tl* 


016403 


004664' 




MOV 


DVASAV(R4),R3 


{GET THE STATUS REG 




•03564* 


»12''63 


00012t^ 


000004 


MOV 


1120, 4(P3) 


{StT TMT INT ENABLE AND SEND 


BIT 


0<»3572* 


01 2763 


00040(> 


0001<H5 


MOV 


1400, 6(R3) 


{XMIT START OF MESSAGE. 




903600* 


000167 


0e'0S02 




JMP 


TIMKEP 


{EXIT TO TIMKEP AND WAIT 
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SEO 0117 



1174 

1175 
1 176 
1177 
1178 
1179 
1 ISk) 
1181 
1 182 
1183 
1184 

lies 

1 186 
1187 
1 188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1 199 
1200 
1201 
12ii)2 
170] 
1204 
1205 
1206 
1207 
1208 
12ID9 
1210 
1211 
1212 
1213 
171 4 
1215 
1716 
171 7 
1718 
1219 
1220 
1271 
1772 
1 223 
1274 
1725 
1776 
1227 
1 278 
1779 



;TMT INTERRUPT POUTINE 



BB3604' 


000405 






THTINT! 


BR 


11 




003606' 


010446 








MOV 


R4,-(SP) 


;SAVE R4 


003610' 


1)10346 








MOV 


R3,-tSP) 


jSAVE R3 


•03612' 


012704 


000002 






MOV 


• 2,R4 


;SET TO LINE 1 


(103616' 


•00403 








BP 


2t 




e0367e'' 


010446 






IS: 


NOV 


R4,-(SP) 


;SAVE R4 


•03622' 


•10346 








MOV 


R3,-(SP) 


;SAVE B3 


003624' 


00S004 








CLB 


R4 


jSET TO LINE 


•03626' 


P0S764 


004722' 




2S: 


TST 


AB0RT(R4) 


;GIVE UP? 


»fl3632' 


100417 








BMI 


TIEXIT 


;BR ir YES 


•03634* 


016403 


004664' 






HOY 


DVASAV(R4),R3 


;GET DVA 


•03640' 


005764 


•04762' 






TST 


TXCNTl CB4) 


;riRST BUFFER TMT'ED? 


•03644' 


001015 








BNE 


FTBUr 


;BR IF NOT 


•03646' 


005764 


004766 ' 






TST 


TXCNT?(R4) 


jSECOND BUFFER TMT'ED? 


•03652' 


001 437 








BEQ 


TIDONE 


;BR IF YES 


•03654' 


1 1 7463 


004756' 


0M0006 




MOVE 


»TXADR2(R4).6(R3) jSEND NEXT BYTE 


•03662' 


005264 


004756' 






INC 


TXADR2(R4) 


;MOV ADDRESS POINTER 


•03666' 


005364 


004766 ' 






DEC 


TXCNT7(R4) 


;COUNT IT 


•03572' 


01 2603 






TIEXITI 


HOV 


(R6)t,R3 


fRESTORE R3 


•03674' 


012604 








MOV 


(R6)'»,R4 


; RESTORE R4 


•03676' 


ty 170002 








RTI 




J RETURN 


•03700' 


005764 


•05006* 




FTBUFi 


TST 


TSYNCT(R4) 


jSENT ENOUGH FILL CHAPS7 


•03704' 


001407 








BCQ 


2S 


;BR IF YES 
















;IF NEGITIVE 


•03706' 


1 00402 








BMI 


It 


;SEND TILL BECINT CLEAPS TSYNCT 


•03710' 


•05364 


005006' 






DEC 


TSYNCT(R4) 


;ELSE COUNT IT 


•03714' 


1 16763 


174254 


000006 


13: 


MOVB 


SYNC,6(P3} 


;SEND IF YES. 


•03722' 


•00763 








BR 


TIEXIT 


lAND LEAVE 


•03724' 


1 1 7463 


•04752' 


000006 


2$: 


MOVB 


0TXAOR1(R4)>6(R3) iSBND NEXT BYTE 


•01732' 


042763 


000400 


000006 




BIC 


«4|»0>6(R3) 


;ASSURE CLEAR TSOM BIT, 


603740' 


005764 


•04757' 






INC 


TXADRl (R4) 


;MOVE ADDRESS POINTER 


•03744' 


•05 364 


004762' 






DEC 


TXCNTl (R4) 


.-COUNT IT 


•03750* 


000750 








BP 


TIEXIT 


:AND LEAVE 










JALL CHAP'S HAVE BEEN TMT'ED 




•03752' 


042763 


000120 


000004 


TIDONEl 


BIC 


ll20r4(P3) 


;KILL THT'ER 


003760* 


•12603 








MOV 


(R6)+.R3 


5 RESTORE R3 


•03762* 


005064 


005126' 






CLR 


KETTAB+4(R4) 


;KILL IMPENDING TIMEOUT 


003766' 


067764 


000002 


004776' 




ADD 


I2,TMTRET(B4) 


;MAKE IT A GOOD RETURN 


•03774' 


005704 








TST 


R4 


;LINC OP 1 


•03776' 


001004 








BNE 


It 


;BR IF LINE 1 


•04000' 


•12604 








MOV 


(R6)+f R4 


; RESTORE R4 


•04007' 


000004 


004020' 


000000' 




PIROe 


2t, BEGIN 


; RTI AND QUEUE UP TO CONTINUE AT 2S 


e0401«t' 


01 2604 






IS: 


HOV 


(R6>+,R4 


; RESTORE R4 


•04012' 


000004 


•04026' 


00000P)' 




PIROt 


3$, BEGIN 


; RTI AND QUEUE UP TO CONTINUE AT 3S 


904020* 


00S004 






2s: 


CLP 


R4 


;SET TO LINE 


004022* 


0001 74 


004776' 






JMP 


»TMTRET(R4) 


J RETURN 


•04026* 


012704 


000002 




3S: 


MOV 


i2>R4 


;SET TO LINE 1 


•04032* 


•00174 


004776* 






JMP 


BTMTBETCR4) 


;RETURN 



»<PBA DEC/Xll SYSTtH EXERCISER MODULE 



NPBA . P 1 






1210 






1231 






1232 






1233 


•04036' 


01 2764 


1234 


904tt44' 


9l64o7 


1235 


•04052' 


062767 


1 236 


•04060' 


01 7767 


1237 


•04066' 


042777 


1 238 


•04074' 


1 16763 


1239 


•04102' 


052763 


1 240 


•04110' 


016401 


1241 


•041 14' 


1 1 1 102 


1242 


••4116' 


•47702 


t ?• ? 


S>!4! J?' 


««-2?32 


1744 


•04126' 


010267 


1245 


•04132' 


005264 


1746 






1747 


•041 36' 


1 04404 


1248 






1249 


•04142' 


005767 


1250 


•04146' 


001402 


1251 


•04150' 


005004 


1252 


•04152' 


000402 


1253 


•04154* 


012704 


1254 


•04160* 


•05364 


1255 


•04164* 


0001 74 


1256 






1257 






1758 






1259 






1260 






1261 






1262 






1263 


•04170' 


012664 


1264 


•04174' 


016401 


1265 


004200' 


012711 


1766 


•04 204' 


060421 


1767 


•04206' 


11671 1 


1268 


•04212' 


032774 


1769 


•04220' 


001 402 


1770 


•04272' 


016407 


1271 


•04226' 


012774 


1272 


•04234- 


1 04400 


1273 






1774 


•04236' 


000403 


1275 






1276 


004240' 


080004 


1777 






1278 


S»0424t,' 




t27« 






1 280 


004246' 




1281 






1 282 


•04254' 


01 27SI4 


1283 


•04260' 


•00401 


1 284 


•04262' 


005004 


1285 


004264' 


032774 
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^ROUTINE IF TRANSMIT TIMES OUT 



177777 

004664' 

000004 

173764 

177767 

174074 

000400 

•04726* 

177760 

173722 
005052* 

•00000' 

000704 



000002 

005052' 

•04776' 



004727' 

173776 

173771" 

173764 

173754 

000006 

000006 



It: 

2$: 



HOV 


1177777, AB0RT(R4)}TELL INT ROUTINES TO GIVE UP 


MOV 


DVASAV(R4),CSRA 


»GET ADDR OF STATUS 


ADD 


I4,CSRA 


;HAKE IT THT CSP 


MOV 


»CSRA,ACSP 


;SAVE STATUS 


BIC 


#177767, dCSRA 


;KILL TRANSMISSION AND INT 


MOVB 


5YNC,6(R3) 


;IDLE WITH SYN CHARACTER. 


BIS 


»400f 6(R3) 




MOV 


CUBLIN(R4),P1 


;GET ADDP Of CUP LINE 


MOVB 


(R1).R2 


;GET VALUE 


BIC 


1177760, R2 


jLEAVE ONLY LINE • 


ACD 




; INDICATE T-^T TIHtOliT 


MOV 


R2, ASTAT 


;SET UP FOR ERROR CALL 


INC 


TXT0B4CR4) 


fSEE NOTE 1 IN FRONT OF LISTING 


ERRORt 


BEGIN 


;TMT TIMEOUT 


TST 


TXT0R4 




BEQ 


It 




CLR 


R4 




BR 


2t 




MOV 


12, P4 




DEC 


TXT0B4(R4) 




JMP 


»TMTRET(R4) 


;BAO RETURN 



SUB GETS CLEAR TO SEND FOR LINE IN DVASAV(R4) AND VCT5»V(R4) 



005012' 




CTs: 


MOV 


(R6)+,CTSRET(R4) 


ISAVE hET ADDRESS 






004670' 






MOV 


VCTSAV(R4) 


Rl 


;GET VECTOR ADDR 






004236' 






MOV 


ICTSINT, (Rl ) 


;HOV In INT ROUTINE ADDS 












ADD 


R4, (Rl )+ 




;SHOWS WHICH LINE 






173O00 






MOVB 


BRl, (Rl) 




;GET BRl LEVEL 






020000 


004664' 




BIT 


l2e000>'>DVASAV(R4) 1 IS CLEAR TO SENU UP? 












BEQ 


RTSSET 




;BR IF NOT 






005012' 






MOV 


CTSRET(R4) 


R7 


(RETURN 






000t)46 


004664' 


rtsset: 


MOV 


•46,9DVASAV(H4) 


;SET REO TO SENU 












EXITS 






;EXIT TO MONITOR. MODULE WAIT 


FOR 


INTERUP 






;INT ROUTINE 
















CTSINTi 


BR 


H 




(DIFFERENT PIRQ'S 






004254' 


00C00H ' 




PIRQS 


2t, BEGIN 




; RTI AND QUEUE UP TO CONTINUf. 


AT 


2S 






IS: 














004262' 






PIRQt 


3S, BEGIN 




! HTI AND QUEUE UP Tu CUNTINUt 


AT 


3S 


0(10002 




2S : 


MOV 


i2,P4 




;StT UP FOB LIoF. 1 












BR 


4$ 














3s : 


CLR 


R4 




.-SET UP FOR LINE (1 






P20«0H 




4S : 


BIT 


l2«<e"^3,»?>VASAVCR4) (IS CLEAR TO SEND SfT? 







NPB* 3EC/X11 SlfSTFM EXERCISER MODULE MACYU 27(732) 20->**V-76 12J29 PACE 27 
NPB».PJ J 



SEQ 0119 



1286 
1287 
1288 
1289 
1293 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1 iiifi 
1301 
1302 
1303 
1304 
1 305 
1306 
1 307 
1308 
1309 
1310 
1311 
1 312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
5 328 
1329 
1 330 
1331 
1332 
1333 
1334 
1335 
1336 
133? 
1338 
1339 
1340 
1341 



»04272' 
#04274' 
■04302' 



8.)1755 

042774 00004(1 e(«4664' 
016407 005012' 



004306' 
004310' 
004314' 
004322' 
004326' 



004332' 
004340' 
004342' 
004344' 
004346" 
004350' 
004352" 
804356' 



eJ4362' 
004366' 
004370' 
004372* 
094376' 
00440^' 
0044i94' 
004406' 

004412' 
004416' 
004420' 

to04422' 
004430' 
B04434' 
004440' 
004444' 



060402 
010162 
067762 
010462 
010062 



022767 
001410 
005704 
001402 
005004 
900402 
012704 
000167 



012702 
005722 
001026 
020227 
001 373 
035767 
001402 
000167 

005767 
001401 
104400 

012767 
104407 
104407 
005067 
000745 



005112' 

000000G 005112' 

005132' 

005122' 



000002 000360 



000002 
174310 



005122' 

005132' 

000424 
000064 
000410 



000001 
000000' 
000000' 
000362 



BEQ RISSET ;G0 TRX *GAIN IF NOT 

BIC I40,(»DV*5AV(R4) jDlSABLE DATA SET CHG INT'S 

HOV CTSRETCR4),R7 »RETURN 



ALL ROUTINES COME HERE WHILE WAITING FOR I/O 
ROUTINE EITHER KICKS OFF SECOND LINE. NOTIFYS 
ROUTINES OF TIMEOUTS, OR JUST DOES BREAKS. 
I/O ROUTINES THAT FINISH UP BEFORE TIMEOUT VALUE 
MUST CLEAR LOCATION PETIAB(R4) +0 IF RECEIVER OP +4 
IF TMT, 

CALLED WITH ft JHP TO TIMKSP AFTER LOADING 
R0 « WHERE TO RETURN IF TI«E OUT 
Rl ■ HOW LONG TO WAIT (IN SECONDS) 

R2 ■ IF ITS A REC TTHEIHC OR 4 IF ITS A THT WAIT 
R4 « FOR ACTIVE LINE 0, 2 FOR ACTIVE LINE 1 



TIHFEpt ADD 
MOV 
ADD 
MOV 
MOV 



CMP 

BFQ 

TST 

BEO 

CLR 

BR 

MOV 

JMP 



r4,p2 ;FIGUPE OUT WHICH TABLE fcNTRY 

Rl,TmTAB(R2} ;STORE HOW LONG TO WAIT 
STIME,TIMTAB(R2) jADD PRESENT TImE 



R4,R4TAR(R2) 
R0,RETTAB(R3) 



t2,LINACT 

TIMCHK 

R4 

It 

R4 



21 

t3,R4 
GETNXT 



jSAVE WHICH ACTIVE LINE 
; WHERE TO RET TO, PLUS 
;IF THIS ENTRY IN TABLE IS 
;0 THEN NO TIMEOUT WILL 
fOCCUR FOR THIS ENTRY SET 
;ARE 2 LINES GOING? 
{BR IF YES 
;ARE WE LINE 0? 
; BR IF YES 
; IP NO MAKE IT 

;WE WERE SO NOW DO 1 
;G0 DO OTHER LINE 



timckk: 


MOV 


>RETTAB,R2 


;GET ADDR OF TIME STATUSES 


is: 


TST 


(R2) + 


jANY WAIT GOING ON? 




3NE 


4t 


;BR IF YES 


lit: 


CHP 


R3,IRETTAB>10 


;ARE WE DONE LOOKING 




BNE 


It 


;BR BACK IF NO 






PASTIM 


'TIME FOR END OF PASS 




BEQ 


2t 


fBR IF NO 




JMP 


EPASS 


;G0 REPORT END OF PASS 


2$: 


TST 


BRKFLG 


;ArE HE ALREADY IN A BREAK? 




BEQ 


3t 


*BR IF NO 




EXITt 




•EXIT TO MONITOR, MODULE WAIT FOR INTERUPT. 


3S: 


MOV 


tl, BRKFLG 


;SHOW HERE DOING BREAK 




BREAKt 


BEGIN 


.•TEMPORARY RETURN TO MONITOR.... 




BREAKt 


BEGIN 


jTHEN CONTINUE AT NEXT INSTRUCTION, 




CLR 


BRKFLG 


;SHOW HERE BACK 




BR 


TIMCHK 





NPBA DEC/Xll SYSTFM EXERCISER MODULE 
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NPBA.PII 






1342 


004446' 


905742 




1343 


004150' 


027762 


000000G 


1344 


004456' 


003002 




1 345 


004460' 


005722 




1346 


004462* 


0007 4 3 




! 347 








1 348 


004464' 


016204 


000010 


1349 


004470* 


01 1203 




1350 


004472* 


005012 




1351 


004474' 


010307 




1352 








1353 








1 354 








1 355 








1356 








t 357 








1 358 


004476' 


005767 


173462 


1 359 


004502' 


001461 




1 360 


004504' 


005267 


000146 


1 361 


004510' 


(»75767 


000142 


1 362 


004510* 


B01053 




1363 


004520' 


005067 


000132 


1 364 


004524' 


01270,3 


000212' 


1365 


004530' 


012701 


011306* 


1 366 


004534* 


105710 




1 367 


004536* 


i<;0403 




1 368 


»0454t)* 


012711 


054130 


1369 


004544' 


000427 




1370 


004546' 


1 16002 


000040 


1371 


004552' 


105060 


000040 


1372 


•04556' 


022702 


00007 7 


I 373 


094562' 


002416 




1374 


004564' 


010203 




1375 


004566' 


042703 


17777(< 


1376 


004572' 


062703 


000060 


1377 


094576' 


1 10361 


000001 


1378 


004602 ' 


id62«2 




1 379 


004604' 


006202 




1 380 


304606' 


906202 




1381 


004610' 


062702 


000064' 


1382 


004614' 


110211 




1 383 


00461b' 


000402 




1 384 


M4620' 


012711 


042102 


1385 


004624' 


095200 




1386 


004626' 


062701 


000(^10 


1387 


004632' 


020027 


000232' 


1388 


004636' 


001 336 




1389 


004640' 


104411 


B04652' 


1 390 








1391 








1 392 


004646' 






1 393 


004646' 


1 04 102 


000000' 


1 394 








1 395 








1 396 


004652' 


01 1212' 




1397 


004654' 


1 77777 





TST 


-{R2) 


;MOVE R2 BACK 


CMP 


0TIME,-10(R2) 


;IS TIME UP? 


BGT 


5t 


>BR ir YES 


TST 


CR2) + 


;BUMP R2 BACK AGAIN 


BR 


lit 


;G0 CHECK OTHERS 


MOV 


10{R2),R4 


;SET R4 CORRECTLY FOR WHICH LINE 


MOV 


CR2),R3 


;SAVE RETURN 


CLR 


CR2) 


;CLEAR THIS ENTRY 


MOV 


P3,R7 


;JMP TO TIME OUT ROUTINE 



EPASS DOES END OF PASS CALL AND PRINTS ERR SUMMARY 
IF LOCATION REPORT IS NOT 



3S: 
4$: 



TST 

BEQ 

INC 

CMP 

BNE 

CLR 

MOV 

MOV 

TSTB 

BMI 

MOV 

BR 

MOVB 

CLPB 

CMP 

BLT 

MOV 

BIC 

ADD 

MOVB 

ASR 

ASP 

ASR 

ADD 

MOVB 

BR 

MOV 

INC 

ADD 

CMP 

BNE 

HSGNti 



;00 ERR SUM OR NOT 
;BR IF NO 
;COUNT A PASS 
;TIME FOR A MSG? 
;IF NOT, BR 

•FIND WHICH LINES ARE RUNNING 
; POINTS TO MSG 
;IS LINE IN USE? 
;BR IF YES 

rPUT XX IN I OF ERRS 



REPORT 
5S 

HSGCNT 

MSCCNT, REPORT 
5t 

HSGCHT 
IPHYTAB,R0 
ISUM14'4.R1 
(R0) 
2S 

154130, (Rl) 
4t 

32.(R0),R2 ;GET I OF ERRS 

32. (R0) fCLEAR THE COUNT FOR NEXT PASS. 

177, R2 ;AMY GOOD MSGS 

3S jBR IF NO 

R2,R3 ;PUT IN MSG 

tl77770,R3 {LEAVE ONLY LOW DIGIT 

160, R3 ;MAKE IT ASCII 

R3,lCRn jSTORE IT AWAY 

R? ;GET NEXT DIGIT 

R2 

R2 

460, R2 ;MAKE IT ASCII 

R2, CR> ) (PUT IT IN MSG 

4S 



•42102, (HI) 



•10, Rl 

R0, (PHYTAB* 20 



MSUM, BEGIN 



FNDPSS, BEGIN 



jPUT IN A 'BD' FOR BAD 
;BUMP LINE POINTER 
fPOINT TO NXT MSG 
{DONE 

;G0 DO MORE 

{ASCII MESSAGE CALL WITH COMMON HEADER 



{SIGNAL END OF PASS. CONTINUE AT RtSTRT 



NPBA DEC/Xll SYSTEM EXERCISER MODULE 
NPBA.P1 1 



M»CYn !7(7J2) 20-M»y-76 12J29 p»GE 29 



see eii2i 



1 )99 












004656 ' 


000000 


msgcnt: 





t 400 


#04660' 


000000 










904662 ' 


000000 


nXTlih : 


1 402 


004664 ' 


000000 


DVASAVl 







00466b * 


000000 







1 4«4 


004670' 


000000 


VCTSAV; 




1 4B5 


004672' 


000000 







t 406 


00467 4 ' 


005 142' 


AMSGBF; 


MSGBF0 




004676 ' 


007 1 62 ' 




MSGBF 1 


1408 


00470(1 ' 


000000 


RFC ADR 1 





1 409 


004702' 


000000 






1410 


004704' 


000000 


RCCCNT : 




1411 


004706' 


000000 






1412 


•04710' 


000000 


RECTIMs 




1413 


■04712' 


000000 






1414 


9047 1 4 ' 


000000 


S YNCNT S 




1415 


004716' 


000000 






1416 


004720 ' 


000000 






1417 


004722 ' 


000000 


ABORT J 




1419 


004724 ' 


000000 






1419 


004776 ' 


000000 


CUPLTN J 




1420 


0047 30 ' 


000000 








0047 32 ' 




RECDl 


RECON 


1422 


0047 31' 


002716' 






1423 


P047 36 ' 


000000 


ERRWDi 




1 424 


^047 40 ' 


000000 






14 25 


904742 ' 


000000 


LOOP 




1 426 


004744 ' 


000000 






1427 


004746' 


000000 


RECRTHt 




1428 


004750' 


000000 






1 429 


004752' 


000000 


TXADRl : 




14 30 


004754' 


000000 






1431 


004756' 


000000 


TXADR2 ! 





1432 


004760 ' 


000000 







14 3 3 


004762' 


000000 


TXCNTl t 




1434 


004764' 


000000 







1435 


004766' 


000000 


TXCHTJI 




1 4 36 


004770 ' 


000000 







14 37 


004772' 


000000 


THTTIHJ 







00477 4' 


0^0000 






1439 


004776 ' 


000000 


THTRETl 






005000 ' 


000000 






1441 


005002 ' 


000000 


THTDONi 




1 442 


005004 ' 










005006 ' 




TSYNCTl 




1 444 


0050 1 ' 


000000 






1445 


0050 12' 


000000 


CTSRET: 







0050 14' 








1447 


005016' 


000000 


FDFLAGi 





1446 


005020' 


000000 







1 449 


005022' 


000000 


RCVTOl 





1450 


005024' 


000000 







1451 


005026' 


000000 


BRKFLG: 





1 452 


005030' 


000000 


PASTINl 





1453 


005032' 


000000 


0P0PR4: 






;EXIT FLAGS 



;C0UNTS END PASSES f OR MESSAGE CALL 

7OSED FOR BIC'ING IN LOOPS 

jADR OF hEXT LIN 

.HOLDS DVA FOR ACTIVE LI0 

•HOLDS DVA FOR ACTIVE L»0 

.HOLDS VCT FOR ACTIVE Lf0 

tHOLDS VECTOR FOR ACTIVE Li0 

.ADDRESS OF MSG BUFFER 

ADDRESS OF MSG BUFFER 1 

CURRENT REC WORD POINTER 

CURRENT REC "lORD POINTER 1 

REC BYTE COUNT FOB 

ptC BYTE COUNT FOB 1 

TF.MP HOLDS TIME OUT VALUE FOR A REC 
SANE BUT FOR LINE 1 

COUNTS HOW MANY SYN CHARACTERS REC 
jSHOULO WAIT FOB. 

jHOLD THE NUMBER OF LINES RUNNING, 0-2 
ABORT FLAG FOR LI0 
ABORT FLAG FOR LI0 

POINTS TO STATUS BYTE FOR CURRENT Lt0 
.POINTS TO STATUS BYTE FOR CURRENT L»0 
JwHCBE TO PIRQ AFTER REC DONE 

HOLDS ERR WOBDS TEMPORARILY 
HOLDS ERR WORDS TEMPORARILY 
HOLDS LOOP COUNT FOB LINE • 
HOLDS LOOP COUNT FOB LINE • 1 
HOLDS RETURN ADDR FOP LINE 10 
HOLDS RETURN ADDR FOR LINE 10 
HOLDS 1ST ADDR TO THT FROM, LINE 
;SANE FOB LINE 1 

;HOLDS 2HD ADOB TO TMT FBOH, LINE 
;SAI4e FOR LINE 1 

;HOLDS 1ST TMT COUNT FOR LINE 
;SAME FOR LINE 1 

HOLDS 2ND THT COUNT FOR LINE 

SANE FOR LINE 1 

HOLDS TIME OUT TIME FOR LINE 
SAME FOR LINE 1 
{HOLDS PTN ADDR FOR TMT, LINE 
SAME FOR LINE 1 
FLAG FOR WHEN A TMT IS DONE 
SAME FOR OTHER LINE 

HOLDS t OF SYN CHAR TO SEND, LINE 
;SAHE FOB LINE 1 
;HOLDS RETURN ADDR FOR CTS 
;SAME FOR LINE 1 
;0 IF HALF DUPLEX, 1 IF FULL 

;COUNTS REC TIME OUT BETBYS 

lis A ONE DUBING BREAKS 

jHAS A 1 WHEN ITS TIME FOR END OF PASS 



NPBA DEC/Xll SYSTEM EXERCISER MODULE 
NPBA .PI i 



I 454 
1 455 
1456 
1457 
1 45s 
1 459 
1460 
1 461 
1 462 
1463 
1464 
1465 
1 466 
1 4*7 
1468 
1469 
147H 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1 4RU 
1481 
! 482 
1483 
1484 
1 485 
1 486 
14S 7 
1 488 
1489 
1490 
1491 
1 492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1SP4 
1505 
1506 
1507 
1S09 

1 5ia9 



005034' 
005036' 
005040' 
095042' 
005044' 
00504b' 
00505^' 
005052' 
005f"54' 
005056' 
005060' 
005062' 
005064' 



000000 
000000 
000000 
00000<i 
000000 
000000 
Cl»0000 
0f0000 
b^0000 
000000 
000000 
000000 
000000 



005066' 
005066' 
005070' 
005071' 
005076' 
005102' 
005104' 
•05106' 
005U0' 



• 05U2' 
005114' 
0051 16' 
005120' 
005122' 
005124' 
005126' 
005130' 
005132' 



01 0046 
042700 
001404 
062701 
005300 
000773 
01 2600 
000207 



000003 

000000 

000000 

000000 
1100000 
tT00000 
000000 
080000 
000000 



005134' 000000 



0051 36" 
005 14t" 



0051 42' 
007162' 



01 1202' 
01 1204" 
•1 1 20b' 
01 1 210' 



Si<.000a 
000000 



001010 
001 01 



177777 
177777 
011504' 
177777 
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DTERR4! 


CRCR4I 


RCT0R4I 


TXT0R4I 


FDBKR4I 


CHKR4: 




rl has addr or vector 
r0 has line • in low bits, 
cetadr: 





MOV 


R0,>(B6) 




BIC 


•1777S0,R0 


Itt 


BEO 


2t 




ADD 


•10, Rl 




DEC 


R0 




BR 


11 


2$: 


HOV 


(R6)i,R0 




RTS 


PC 


iihtab: 






















RETTABl 




























R4TABt 




























MSGBF0: 


.BLKH 


520. 


MSCPFl 1 


.BLKW 


520. 


FILLI 


177777 






177777 




ArROP: 


MOROP 
-1 





RETURNS WITH ADDR Op VECTOR IN Bl 
;SAVE R0 

;SAVE ONLY LINE i 
;DONE 

fBUMP TO NEXT LINE 
;ADDEO ENOUGH TIMES? 
]G0 BACK 
; RESTORE R0 

jRETURN WITH DVA IN PI 



;WHEN TO TIME OUT FOR RECLINE 
;HHEN TO TIME OUT FOR RECLINE 1 
jWHEN TO TIME OUT FOR TXT, LINE M 
jWHEN TO TIME OUT FO TXT, LINE 1 
WHERE TO RETURN FOR REC LINE 
WHERE TO RETURN fOR REC LINE 1 
WHERE TO RETURN FOR TXT LINE 
WHERE TO RETURN FOR TXT LINE 1 
HOLD R4 FOR RETURNS 



;BLC BUFFER FOR LINE 
jPEC BUFFER FOB LINE 1 



;4 CHARACTERS OF FILLER BYTES 



»rU217' 0PI5015 04452 3 »>4I^1f. SL 



,SSriI- <Ji><i 2>'SINCf: LAST SUMMARY PtP LlNt, IN OCTA! '<15><12> 



NPB» DEC/XU StSTEM EXERCISER MODULE 
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1510 


»11220' 


020105 


040514 


052123 








1511 


•11226' 


051440 


046525 


040515 








1512 


011234' 


•54522 


050040 


051105 








1513 


1111242' 


046040 


047U1 


026105 








1514 


Bi 125iT 


044440 


020116 


041317 








1515 


»11256' 


040524 


020114 


005015 








1516 


011264' 


044514 


042516 


021440 




•ASCII 


•LIKE 1 ERPS'<15><12> 


I5!7 


011272' 


020040 


951 ! 05 


051522 








1516 


»1130a' 


005015 












1519 


811302' 


030060 


026455 


030060 


SUMtl 


.ASCII 


'00— «0'<15><12> 


1520 


011310' 


005015 












1521 


•11312' 


030460 


026455 


030060 




.ASCII 


'0l"»0'<15><12> 


1522 




assets 












1523 
















1524 


•11322' 


031060 


026455 


030060 




.ASCII 


•02— ea'<i5><i2> 


1525 


• 1 1 330' 


005015 










1526 
















1527 
















1528 


•11332' 


031460 


026455 


030060 




.ASCII 


•»J— 00'<15><12> 


1529 


011340' 


005015 










1530 
















1531 
















1532 


•11342' 


•32060 


026455 


030060 




.ASCII 


'04— 00'<15><12> 


1533 


•11350' 


005015 










1534 


•11352' 


032460 


026455 


030060 




.ASCII 


'05— •••<15><12> 


1535 


•11 360' 


005015 












1536 


•11362' 


•33060 


026455 


030060 




.ASCII 


•06— e0'<15><12> 


1537 


911370' 


005015 












1538 


•11372' 


033460 


026455 


030060 




.ASCII 


••7— •••<J5><12> 


1539 


•11400' 


005015 












1540 


(!11402' 


030061 


026455 


030060 




.ASCII 


'!•— 90'<15><12> 


1541 


•11410' 


005015 












1542 


•11412' 


830461 


026455 


030060 




.ASCII 


'11— 00'<15><12> 


1543 


•11420' 


005015 












1544 


•11422' 


031061 


026455 


030060 




.ASCII 


'12— 90'<15><12> 


1545 


•11430' 


005015 












1546 


•11432' 


031461 


026455 


030060 




.ASCII 


•13— 00'<15><12> 


1547 


•1 1440' 


005015 












1549 


•11442* 


032061 


026455 


030060 




.ASCII 


'14— ••*<15><12> 


1549 


• 1145«»' 


005015 












1550 


•11452' 


032461 


026455 


030060 




.ASCII 


•15— 00'<15><12> 


1551 


•11460' 


005015 












1552 


•11462' 


033061 


026455 


030060 




.ASCII 


M6— »0'<iS»<i2> 


1553 


•11470' 


005015 












1554 


•11472' 


033461 


026455 


030060 




.ASCII 


•J7— •0'<15><12> 


1555 


011500' 


005015 












1556 
















1557 


•1 1502' 


000 








,aiTE 





1558 




011504' 








.EVEH 




1559 










f 






1561) 










t 






1561 


SUS04' 


e4 45!4 


342516 


053440 


MDROP! 


USCIZ 


•tlUE HAS DgOpPED' 


1562 


911512' 


P51501 


042040 


047522 








1563 


•11520' 


050120 


042105 


000 








1564 




000001 






.END 
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TABLE — 


USER 


SYMBOLS 
















ABORT 


004722R 




881» 


906* 


931 


1107* 


1153* 


1184 


1233* 


1417» 








ACSR 


•00052R 




4671 


992» 


nil* 


1236* 
















ADDP 


•00006R 




4461 


639 


697 


















ADROP 


01 1206R 




782 


15061 




















AM5GBF 


•04674R 




740 


809 


635 


1047 


14061 










































ASTAT 


•00054R 




4691 


998* 


999» 


1006* 


1007* 


1008* 


1052* 


1069* 


1092* 


1118* 


1244* 


ANAS 


900060R 




4711 






















BDCNV * 


»«••«* 


G 


11 






















BEGIN 


03000OR 




443* 


620 


621 


653 


654 


667 


719 


782 


863 


864 


974 








1011 


1038 


1039 


1063 


1095 




1219 


1223 


1247 


1276 


1260 








1369 


1393 





















PIT0 = 


•00001 


BITl a 


•00002 


BITia a 


002000 


BITll X 


004000 


BIT12 « 


010000 


BIT13 » 


•20000 


BIT14 X 


•40000 


BIT15 » 


1 00000 


B1T2 » 


•0000 4 


BIT3 » 


•00010 


BIT4 = 


•00020 


BIT5 a 


•00040 


BIT6 I 


•00100 


BIT7 X 


•00200 


BITS X 


000400 


8IT9 I 


<l010k)0 


BREAKSx 


104407 


BRKFLG 


005026R 


BPl 


•000 12R 


BR2 


•0001 3R 


CDATASz 


104414 


CER 


003174R 


CHKR4 


•05062R 


CKHSG z 




CRCP4 


•0S042R 


CSRA 


•000S0R 


CT5 


•04170R 


CTSINT 


004236R 


CTSRET 


90501 2R 


CURLIN 


•04726R 


DATAER 


•02634R 


DATCKS* 


194417 


DATER$= 


10440S 


DERR 


•01306R 


DEVSETx 


»«««»• 


DONE 


•01002R 


DROP 


0013S2R 


0R0PR4 


•0503 2R 


DTERR4 


•05036R 


DVASAV 


004664R 


DVIDl 


00001 iR 


ECQUHT 


»a0252R 



9eb 
1337 



1001 
1336 



4601 
4601 
460* 
480» 
4R0I 
4601 
4801 
4801 
4601 
4801 
480» 
4801 
460* 
4601 
480* 
4601 
4801 
666* 
4481 
4491 
460« 
1069 
682* 
4801 

674» 
4651 

754 
1265 
1263» 
692» 
997 
460t 
480* 
757 
4611 
690 
776 
670* 
672* 
699* 
1033* 
4501 
5491 



653 


654 


863 


864 


1B38 


1039 


723 


1332 


1336* 


1339* 


14511 




905 


1152 


1267 








1071 


10871 










683» 


1037» 


1040 


1045* 


1465t 




1035 


1062 










675* 


1093» 


1097 


1102* 


14571 




99l» 


1113* 


1234* 


1235* 


1236 


1237» 


800 


834 


12631 








1274t 












1270 


1268 


1445t 








773 


822 


882 


993 


1055 


1081 


10061 













7691 

622 

711» 

7801 

67l» 

673» 

758» 

1 111 
618 

IfjRlf 



625 


687 




















761» 


763 


768> 


14531 
















1009< 


1013 


1018> 


145Si 
















763 


76 9 • 


804* 


821* 


875* 


886* 


910» 


917* 


930 


979* 


991 


!112» 


1113 


1155 


U70 


1186 


1234 


1268 


127l» 


1285 


1287* 


1402i 
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ENDPSS> 


104402 




4801 


1 393 










ENDS ■ 


1 4440 ) 




4901 






719 






CPA55 


90 4 4 7 6 P 




725 


13 30 


3591 






EBRCNT 


t00030R 




457t 












ERRLVL 


»e0172R 




489t 


775 


824 


884 


1 109 




EPRNt I 


104410 




4B0I 








ERRORS- 


1 04404 




4801 


1001 


1 at 1 
loll 


1095 


1121 


1 247 


ERRTA6 


K00332R 




5301 








ERRHD 


004736R 




935* 


951 


955* 


956* 


992 


996 


EXITS * 


1 04400 




4801 


728 


857 


1003 


1273 


1 134 


FDBKP4 


0eS0$6R 




680* 


681* 




865 


870* 


1 4631 


FDFLAG 


#0501 6R 




7 30* 


7 34* 




908 


946 


1 156 


FDRCDN 


901 766R 




840 




871 


885 


FDTO 


#021 )0R 




850 


89?' 








FERR 


001 322R 




746 


7721 










FERP 1 


001 324R 




771 


7731 










FILL 


#1 1 202R 




753 




846 


tS04( 






FTBUF 


B0370OR 




1 1 8 B 


1 197» 








GEPP 


001 5&2R 




803 


8 2 1 < 










GETADR 


M5066R 




698 


701 


1 4721 








GETNXT 


900672R 




6891 


696 


766 


I 320 






GETPAS s 


1 0441 3 




480t 










GNBUFSa 


1 0441 2 




4801 












HFRP 


W01 570R 




814 


822* 










IHIT 


000022R 




4541 












JERR 


00206 2 R 




839 


848 


8801 








LI N ACT 


004720R 




688* 


703* 


711 


765* 


1313 


14161 


LNDONE 


001 262P 




762i 


789 










LOOP 


004742R 




704* 


759* 


760 




• 16 


872* 


LPCHT 


000i66R 




4871 


760 


816 


873 




MAP22tx 


1 044 15 




480i 










MASK 


004660R 




623* 


627 


639 




635* 




MD * 


»»«»• » 


GX 


707 












HDATAB 


00027 2R 




573t 












MDMTAB 


00031 2R 




600i 












HDROP 


01 1504R 




1 5t$b 


15611 










HODNAH 


IM000OR 




4441 












HOOSP 


4001 6 4R 




455 


478i 










MSG s 




G 


480t 


1 048 










MSG6F0 


005 1 42R 




1 406 


1 499i 










HSCBFl 


007t62R 




1 407 


J 5001 










MSCCNT 


i»046SbR 




650* 


1 360* 


1361 


1 363* 






HSGHEDz 


»««•«» 


G 


480* 


749 


795 


841 






HSGNS > 


1 0441 1 




480* 


782 


1 389 








HSGSIZ* 




G 


4B0I 


741 


750 


796 


810 


• 36 


HSGSS ■ 


1 0441 6 




480t 












MSG* * 


104406 




4801 












MSUM 


004652R 




1 389 


1 396i 










NXTLIN 


004b62R 




687* 


689 


691 


694* 


1401 1 




OACNV X 


»•••* > 


G 


1 1 












ONEREC 


0011S6R 




491 


747t 


778 








ONETMT 


80IS00R 




492 


B05i 










OPEN 3 


I»0000i1 




445 
471 


451 
4801 


4S« 


459 


460 


461 


PASCNT 


000026R 




4564 












PASTIM 


005030R 




685* 


721* 


133S 


1452* 







1135* 14251 
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PHYTAB 


(0021 2R 


508l 


624 


631 


648 


687 


PIROt ■ 


•)00004 


4801 


974 


986 


1219 


1223 


POPSP I 


005726 


4801 










P0PSP2= 


022626 


4801 










PP 




708 


730t 








PPFD 


0dlbl 2R 


733 


esli 








PPFDl 


»01b)2R 


6351 


874 








PPHOM 


00141 4R 


736 


7941 


817 






PPHDM2 


B01542H 


808 


8151 


826 






PPHDS 


031112R 


7391 


761 








PPHDS2 


901246R 


748 


7591 


779 






PRTY a 


00000^ 


4801 










PPTY0 » 


0000011 


4R0I 










PPTYl ■ 


00004(4 


480* 










PPTY2 » 


00010,^ 


4801 










PRTY3 » 


0001 40 


4801 










PPTY4 = 


000200 


4801 










PPTY5 I 


000240 


448 


449 


4801 






PRTY6 » 


000300 


4801 










PPTY7 » 


00034^ 


4801 










PS > 


1 77776 


480* 










PSW » 


177776 


4801 










PUSH a 


00S74b 


4801 










PUSH2 » 


024646 


4R0i 










PHRCNTa 




G 4801 


665 








QUES a 


1 34401 


4801 










RCT0P4 


005046R 


676* 


677* 


1119* 


1123 


1128* 


RCVTO 


005022R 


705* 


1014* 


1108* 


1109 


1129* 


RDTO 


003362R 


892 


914 


11071 






REC 


002142R 


745 


813 


838 


9011 




RECADR 


•04700R 


740* 


809* 


835* 


958* 


959* 


PECCNT 


004704R 


741* 


742* 


810* 


811* 


836* 


RECD 


004732R 


967 


I421t 








RECDN 


002712R 


974 


10301 


1421 


1422 




RECERR 


0032 10R 


1053 


10901 








RECINT 


e022S2R 


903 


9221 








RECRIN 


•04746R 


891 • 


901* 


911 


1072* 


1074 


RECTIM 


00471»R 


743* 


744* 


812* 


915 


14121 


REPORT 


000164R 


4B4I 


949 


1050 


1057 


1077 


RERR 


002510R 


952 


957 


9771 






RESTRT 


000S40R 


472 


652 


6651 






RETTAB 


00S122R 


1073* 


1213» 


1309* 


1323 


1326 


RPIRO 


002502R 


967* 


9721 








RRET 


0031 36R 


1026 


10731 


1079 


1084 


1103 


RSTRT 


•0006 2 R 


4721 










RT5SET 


004226R 


1269 


12711 


1286 






R4TAB 


0051 32R 


1308* 


1 491 i 








SBADR 


00005 2 R 


466f 










SPAPEl 


0002e2R 


4931 










SPARE2 


000204R 


494« 










SPARE3 


000206R 


4951 










SPARE4 


00021«IR 


4961 










SPOINT 


00002 4R 


455t 


669 








SPSIZ ■ 


000040 


1 1 


473 








SPl 


00001 6R 


451 • 


636 








START 


000332R 


454 


6181 









689 
1276 



714 
1280 



14S9i 
14491 



14081 
837* 



1130 
1087 



14271 
1358 
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STUT 






453f 












SUH 


0n2l2R 




1396 


15091 










SUMl 


•il3a2R 




136S 


1S19I 










SVRB 


ve>(«i)32R 




45Si 












SVRl 


»i90034R 




4S9i 












SVR2 


O<»0036R 




4601 












SVB3 


00004t)R 




46 1« 












SVR4 


00004 2R 




462t 












5VR5 


»!»0044R 




463t 












SVR6 


000046R 




4641 












SYNC 


00H174R 




4901 


644* 


646 


941 


1302 


1238 


SYNCNT 


•04714R 




907» 


937 


945* 


14141 




TIDONE 


003752R 




! 190 


!2!1S 










TIEXIT 


003672R 




1185 


1 194» 


1203 


1 206 






TIHCHK 


pa4362R 




713 


1 314 


13231 


1340 






TIME » 


•••••» 


G 


4P0I 


1 307 


1343 








TIMELN 


M0170R 




4881 


743 


744 


755 


801 


813 


TIMKEP 


004)06R 




854 


918 


1173 


1305* 






TIMTAB 


005112R 




1306* 


1 307* 


1483t 








TMT 


003430R 




756 


802 


847 


1146< 






TMTDON 


•05ii)e2R 




856* 


860 


sae* 


1147* 


1441 • 




THTIM 


003604R 




1150 


1 l76t 










TMTRFT 


ee4776R 




1146* 


1 162 


1214* 


1226 


123t 


1 25S 


TMTTIM 


00477^R 




755* 


801* 


1 168 


1437* 






TPX = 


000000 




4801 












TRAPX » 


00002M 




480) 












TSJNCT 


a0S00bR 




948* 


1 154* 


1 199* 


1197 


1301* 


14431 


TXADRl 


004752R 




749* 


795* 


841* 


1 204 


1206* 


14291 


TXADB2 


004756R 




753* 


799* 


846* 


1191 


1192* 


14311 


TXCNTl 


»e47b2R 




750* 


751* 


796* 


797* 


• 43* 


•44* 


TXCNT2 


•04766R 




752* 


798* 


845* 


1189 


1193* 


1435» 


TXTO 


• 0«03<>K 




1167 


i 233' 










TXT0R4 


Ba5052R 




678* 


679* 


124S* 


1249 


12S4» 


14611 


VCTSAV 


B04670R 




702* 


902 


1148 


1264 


14044 




VECTOR 


00001 JR 




447» 












WAIT a 


«*«««» 


G 


480* 


651 










MASADR 


00et>stR 




4681 












XFLAG 


•00«»0SR 




44Si 












X4 


00314bR 




1066 


10771 










X5 


0031S6R 




1051 


1078 


10«ll 


1088 






, X 


01152SR 




14991 


1500» 


1558* 









8EQ 0127 



1439t 



1207* 1433* 



. ABS. 0000>)0 000 
011S2S 001 



% ERRORS DETECTED! 1 

% DEFAULT GLORALS GENERATED! 1 

•NPBA,NPBA/SOL/CPF!SYH=DDXCOH,NPBA 
PUN-TIME! 6 12 1 SECONDS 
RUN-TIME RATIO: 55/20»2.6 
CORE USED: RK (15 PAGES) 
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SEQ 0128 



1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 IDENTIFICATION 
14 

15 PRODUCT CODE: MAINDEC-l l-DXNLA-A-D 

16 

17 PRODUCT NAME: DL-ll DECNET DEC/Xll EXERCISER MODULE 

18 

19 DATE: 21-JUN-76 

20 

21 MAINTAINEP: DEC/Xll DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN. 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COplED IN ACCORDANCE WiTH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE OR RELIABILITY OF ITS SOFTWARE ON EUUlpMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL, 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIpMF.Nl CORPORATION, MAYNARD, MASS, 

38 
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39 
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1, ABSTRACT 

THIS TYPE OF DEC/Xll MODULE, REFERRED TO AS DECNET DEC/Xll MODULE, 
WILL DETECT SYSTEM INTERACTION ERRORS WHEN RUN IN CONJUNCTION WITH 
OTHER DEC/Xll MODULES EXERCISING OTHER DEVICES ON THE SYSTEM. 
ERRORS ARE REPORTED ON THE SYSTEM CONSOLE AS THEY OCCUR OR AS A 
SUMMARY REPORT, AT THE OPERATORS OPTION, IN ADDITION, THESE 
MODULES WAY BE USED TO VERIFY THE CONDITION OF THE ASSOCIATED 
MODEMS AND COMMUNICATION LINKS, IT WILL ONLY TEST COMMUNICATIONS 
PATHS CAPABLE OF RUNNING DDCMp, THIS MEANs THE DEVICES MUST USE 
NO PARITY, 8 LEVEL CODE/ AND TERMINALS CANNOT BE TESTED, 



NOTE 

THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/Xll, 
THE DETAILS OF LINKING, LOADING, AND 
RUNNING MODULES UNDER OEC/Xll CAN BE 
FOUND IN THE DEC/Xll USERS DOCUMENTATION 
AND REFERENCE GUIDE, MAINDEC-1 1-DXQBA. 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MA1NDEC-11-DXQBC» WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING, 



2, HARDWARE REQUIREMENTS 

THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE, THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS: 



A, 1 PROCESSOR, 1 COMM, DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES, (MUST RUN FULL DUPLEX) 

B, 1 PROCESSOR, 2 COMM. DEVICES, 2 MODEMS 

C, 2 PROCfSSORS, ? COMM. DEVICES, 2 MODEMS 

UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUI ONLY 2 
LINES ARE KEPT RUNNING SIMULTANEOUSLY, 



3, SOFTWARE PtGUlREMENTS 

A. THE DEC/Xll MONITOR MUST BE QABK OR A LATER REVISION, 

B. THE NIA? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOF* 
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C, ALL NETWORK MODULES MUST BE CONFIGURED NEXT. 

D, THE N2A? MODULE MUST BE CONFIGURED NEXT,» 

E. ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT. EITHER 
KWA?, KWB?, OR KWX? 

F. ANY OTHER DESIRED DEC/Xll MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER. 



4, PRELIMINARY TESTING 

THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE, THEN A DEC/Xll EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/Xll MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN. IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/Xll MAY BE ATTEMPTED, 



5, PROGRAMMING CONSIDERATIONS 

A. OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN WHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/Xll 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/Xll 
MONITORS AND ALL OTHER MODULES, THE ONLY OTHER EXECPTION Is 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE WILL NOW BE 2 
DIFFERENT DEC/Xll MODULES CAPABLE OF BEING RUN, THE OLDER 
MAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYpE REQUIRING A 
COMPLETED COMMUNICATIONS PATH, IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/Xll 
MODULES IN ONE RUN TIME EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE. IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY BE SELECTED FOR THE SAME RUN. 



B. USING THESE DECNET DEC/Xll MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC/Xll 
TOGETHER. ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES. DUE TO DIFFERENT HARDWARE ON EACH SYSTEM, 
RUN TIKFS AND END OF PASS TIMES MIGHT VApi( CONSIDERABLY. 
THEREFORE IT IS NECCESSARY THAT THESE DECNET DEC/Xll MODULES 
BE EXTREMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS, THIS HOWEVER, MEANS IT SOMLTIMEs MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING. 

C. DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



» THESE ARE DFSCRIBEO IN THE DECNET DEC/Xll USER'S GUIDE. 
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BUFFERS REQUIRED TO RU^ MANY LINES FROM ONE MODULE ALL AT THE 
SAME TIME, IT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME. IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL PUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LPCNT,, THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC UP TO THE 8TH PAIR, IT WILL 
THEN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC. THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING LINES TOGETHER SO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE, PLEASE 
READ THE DECNET DEC/Xll USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS. 

D. THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES. THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED, THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS. 



6, OPERATING PROCEDURES 

A, THE MODULE Is CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
DEC/Xll REFERENCE GUIDE, 

B, CONSOLE SWITCHES ARE STANDARD FOR DEC/Xll 

C, THE NIA? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYPE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY, THE OPTIONS 
INCLUDE: 

ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANnED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 

D, THE N2A? MODULE WILL MAKE ANY AUTOMATIC PHONE CONNECTIONS 
USINiS ANY DN-ll'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS, ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE, 

E, THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE, 

F, THERE ARE MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE: 



(1) LOCATION 164 IS A SWITCH WHICH INDICATES WHETHER OR NOT 

ALL ERRORS SHOULD BE REPORTED As THEY HAPPEN, IF 

LOCATION 164 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 

TOTALLED (ON A LINE BY LINE bASiS); EVERY N PASSES THIS 
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TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED. THE VALUE OF N IS THE VALUE OF LOCATION 164, 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BF TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VERY GOOD QUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128. 
(LOCATION 166 IS DEFINED NEXT.) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128, IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW. IF THE LINE 
IS OF KNOWN GOOD QUALITY, THIS RESTRICTION MAY BE 
RELAXED. THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS. (LOC 164 = kJ) OF COURSE DEC/Xll KEEPS TOTALS FOR 
THE ENTIRE PUN, REGARDLESS. 

LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED, AN ITERATION IS 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER. 
THE DEFAULT VALUE IS 8. 

LOCATION 17B IS A TIME SCALING FACTOR, THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS, THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS, 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR, 
DEFAULT IS 30 SECONDS. 

LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS. SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR VICE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING. IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10. 

LOCATION 174 CONTAINS 2 IDENTICAL BKTES FOR USE AS SYNC 
CHARACTERS. THE DEFAULT IS 113226 WHICH IS 2 BYTES OF 
226. IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER, THIS LOCATION IS A DON'T CARE FOR 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

LOCATION 176 IS AN ADDRESS. IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN RECEIVE-ONLY MODE, HE SELECTS THE LINE 
FOR HALF DUPLEX, POINT-TO-POINT, SLAVE, (BIT 7=1, 
BITS 4,5, AND 6 s 0'S IN THE PHYSICAL LINE TABLE. SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 176 FROM A 4t)l TO A 240, THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
SLAVE BY THIS MODULE TO RUN IN RECEIVE ONLY MODE. THIS 
LOCATION MAY BE PATCHED BACK TO A 401 TO RESUME NORMAL 
REC-TMT TESTING. 
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(7) LOCATIOM 200 IS AN ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE* HE SELECTS THE 
LINE FOR HALF DUPLEX, POINT-TO-POInT, MASTER (BITS 7 AND 
5 s l'S» BITS 4 AND 6 = 0'S IN THE PHYSlCAL-LINE TABLE, 
SEE ITEM 6-F-9 BELOW,) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE. THE 
LOCATION MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING, 



G. LOCATIONS DVA, VCT, BRl AND Br2 MUST BE SET TO PROPERLY MATCH 
THE FIRST DEVICE TO BE TESTED BY THIS MODULE. 



7, ERROR REPORTING 



A, ERRORS ARE EITHER TOTALLED AND PRINTED AS SUMMARIES ON A LINE 
BY LINE BASIS, OR THEY ARE PRINTED AS THEY OCCUR, SEE 
SECTION 6F1, THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS. 



B. DATA ERRORS ARE ACTUALLY REpORTED BY THE NlA? MODULE BECAUSE 
THIS Is WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED, SO ALL DFCNET DEC/XU MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD DEC/XU DATA COMPARE ERROR MESSAGE 
EXCEPT: 

(1) THE MODULE NAME TYPED IS FFXX, WHERE FF IS FILLED IN TO 
BE THE NAME OF THE DECNET DEC/XU MODULE WHICH CALLED 
THE NlA? MODULE TO DO THE COMPARE, IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR, 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMpARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED. 

(3) ACSP CONTAINS THE ADDRESS OF THE DECNET DEC/XU MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED. 

(4) SBADR CONTAINS THE LINE # OF THE DEVICE WHICH HAD THE 
DATA ERROR. 

(5) WASADR CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IN THE MESSAGE THIS BAD CHARACTER WAS. 

(6) THE "SHOULD BE AND "WAS" ITEMS ARE NORMAL. 



C. OTHER ERRORS APE pEpOHTLD USING THE NORMAL ERROR CALL IN 
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DEC/Xll CSRA AND ACSR ARE STANDARD, STATC CONTAINS A CODED 



ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 
DEC/Xll MODULES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 
WHICH LINE HAD THE ERROR THE OTHER DIGITS CONTAIN THIS CODE: 



0tJ10XX RtC TIME OUT 

0020XX TMT CLOCK LOSS 

0030XX HEADER CRC ERROR 

0040XX MSG CRC ERROR 

0050XX TMT TIME OUT 

0060XX TMT NON-EXISTENT MEMORY 

0070XX TMT LATENCY 

0100XX REC DATA PARITY ERROR 

0110XX REC NON-EXISTENT MEMORY 

0120XX REC CLOCK LOSS 

0200XX REC FRAMING ERROR 

0400XX REC OVERRUN OR LATENCY ERROR 



THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 
LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE, THE FIRST 
TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE NIA? 
MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 
CONSOLE FOR THE OPERATORS SUBSEQUENT USE, 



D. ALL ERRORS HAVE A RETRY LIMIT (SEE SECTION 6F4) WHICH CAN BE 
MODIFIED. 



E. ON pOWER-FAIL# pOwER-UP CONDITlONSr DECNET DEC/Xll MODULES 
WILL DROP THEMSELVES, THIS IS DONE BECAUSE THE PHONE 
CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 
WILL BE REQUIRED. 



8, TEST SEQUENCE 

LINES ARE TESTED BY PAIRS IN SEQUENTIAL ORDER. THIS ORDER MAY BE 
MODIFIED BY MODIFYING THE PHYSICAL LINE TABLE, (SEE DECNET 
DEC/Xll USEP'R GUIDE). THERE ARE SEVERAL TESTING OPTIONS WITH 
SLIGHTLY DIFFERENT FUNCTIONS MAKInG UP AN ITERATION: 



A, POINT-TO-POINT SLAVE. IN THIS CASE THE LINE WAITS TO RECEIVE 
A MESSAGE, WHEN IT DOES, IT CHECKS IT, AND THEN TRANSMITS A 
MESSAGE BACK. IT WILL REPORT ERRORS ON EXCESSIVE WAITS, 



B POINT-TO-POINT MASTER. IN THIS CASE THE LINE SENDS A MESSAGE 

AND WAITS TO RECEIVE ONE IN RETURN, IT THEN CHECKS THE 
RECEIVED MESSAGE. IF IT TIMES-OUT, IT TRANSMITS AGAIN, IT 
WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 
MESSAGE IS RECEIVED, OR II TIMES OUT COUNT EQUALS LOCATION 
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375 172, THE ERROR TOLERATION LEVEL, (SEE SECTION 6F4), IT WILL 

376 THEN REPORT AN ERROR AND BEGIN AGAIN, AFTER THE NUMBER OF 
377 

378 

379 CONSECUTIVE TIME-OUT ERRORS REPORTED EQUALS [.OCATION 172, THE 

380 LINE WILL BE DROPPED. 
381 

382 

383 C, POINT-TO-POINT SLAVE RECEIVE ONLY,, IN THIS MODE THE LINE 

384 WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 

385 RECEIVE AGAIN. 
386 

387 

388 D, POINT-TO-pOINT MASTER-TRANSMIT ONLY. IN THIs MODE THE LINE 

389 JUST TRANSMITS AND THEN TRANSMITS AGAIN , ETC . 
390 

391 

392 E, MULTl-DROp MASTER, IN THIS MODE, THE LINE WILL SEND A DDCMp 

393 MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 

394 TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 

395 DATA, 

396 * NOT YET IMPLEMENTED 
397 

398 

399 F, MULTl-DROp SLAVE, IN THIS MODE, THE LINE WILL WAIT FOR A 

400 MESSAGE WITH THE MATCHING ADDRESS, THEN IT WILL TRANSMIT A 

401 MESSAGE. 

402 » NOT YET IMPLEMENTED 
403 

404 

405 G. THESE BASIC ITERATIONS ARE REPEATED Up TO THE NUMBER OF TIMES 

406 IN LOCATION 166, (SEE SECTION 6F2} FOR EACH LINE SELECTED 

407 FOR TEST, AND THE END-OF-PASS IS DECLARED. 
408 

409 
410 

411 9. PASS TIMES 

412 

41 3 

414 PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT. DIFFERENT BAUD 

415 RATES, MESSAGE SiZES, AND TESTING MODES ALL GREATLY AFFECT 

416 THE PASS TIME. BELOW ARE SOME BALL PARK TIMES, BUT ANY ONE 

417 SYSTEM COULD VARY TREMENDOUSLY FROM THESE: 

418 -RUNNING ALONE, 1 LINE ON AN 11/05 AT 960*} BAUD, HALF DUPLEX, 

419 POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 

420 SECONDS. 
421 

422 

423 NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 

424 WHEN 2 LINES ARE RUNNING, A MONITOR CALL CAN BE MADE AND BEFORE CONTOrL IS 

425 RETURNED TO THE MODULE, THE OTHER LINE MAY CAUSE THE EXACT SAME CALL TO BE 

426 MADE, IN FACT, WHEN PUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 

427 4 CALLS TO THE MONITOR FROM ONE SPOT IN THE MODULE, BEFORE THE FIRST CALL Is 

428 RETURNED FpOM, THIS TS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 

429 BEFORE DOING CALLS, SO THAT WHEN It IS RETURNED TO, iT CAN KEEP WHICH 

430 LINE DID WHAT STRAIGHT. 
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NOTE 2 WHEN PUNNING 2 LINES LOOPED TOGETHER FROM THE SAME MODULE, 
THE LOW ORDER ONE (PER DVC, LOC , 14) SHOULD BE SLAVE AND THE HIGHER 
ORDER ONE SHOULD BE MASTER, 



NOTE 3 YOU CAN RUN THE DL'S WITHOUT MODEMS IF A NULL MODEM IS USED 
AND LOCATION TAGGED "NULL:" IN THE CTS: (CLEAR TO SEND) ROUTINE IS 
PATCHED FROM 104400 TO A 772. THIS WILL GENERALLY REQUIRE ALL DL'S 
BEING RUN BY THIS MODEM TO NOT USE MODEMS, IF YOU HAVE SOME WITH 
AND SOME WITHOUl, USE 2 NLA? MODULES, 
% 
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444 






JPARITI 


MUST BE 


445 






;STOP CODE LENC 


446 






>ChARACTER SI£E 


447 


«0e00<«' 






lOMOD < 


448 


900000- 






MODULE 


449 








TITLE 


450 






* 


u~ 


451 










452 










453 


»0000(«' 




BEGIN s 




454 


000000* 


046116 040501 


040 HODNAMt 


ASCII 


455 


000005' 


003 


XFLACj 


BYTE 


4SS 




S00001 


ADDRi 




457 


000010' 


000004 


vector: 


4+0 


458 


000012' 


2a0 


BRI I 


,BY7E 


459 


•00013' 


200 


BR2: 


.BYTE 


460 


000014' 


000001 


DVIDl 1 


^ 1 


461 


•00016' 


000000 


SRI 1 


OPEN 


462 










463 


•00020' 


1 40000 


STATi 


1 40000 


464 


•00022' 


000332' 


InIT: 


START 


465 


000024' 


000164' 


SPO JNTS 


HODSP 


466 


•00026' 


000000 


PASCNTI 




467 


•00030' 


000000 


ERRCNT S 




468 


•••032' 


000000 


SVR01 


OPEN 


469 


•00034' 


000000 


SVRl ; 


OPEN 


470 


•00036' 


000000 


SVR2 : 


OPEN 


471 


•00040' 


000000 


SVR3I 


OPEN 


472 


•00042' 


000000 


SVR4! 


OPEN 


473 


000044' 


000000 


SVRSt 


OPEN 


474 


•00046' 


000000 


SVR6: 


OPEN 


475 


000050' 


CI00000 


CSRAt 


OPEN 


476 


•00052' 




SB ADR t 




477 


•00052' 


000000 


ACSRi 


OPEN 


479 


•00054' 




masadr: 




479 


•0005 4 ' 


000000 


ASTATj 


OPEN 


480 


•00056' 


000000 


ASB; 


OPEN 


481 


000060' 


0X0000 


AWASi 


OPEN 


482 


900062' 


000516' 


RSTRT: 


PESTRT 


483 








.RCPT 


484 








.NLIST 


485 








.WORD 


486 








.LIST 


487 








.ENDR 


488 


•00164' 




MODSP: 




489 










490 








.GLOBL 


491 








.GLOBL 


492 










493 










494 


000164' 


0000(10 


report: 





495 










496 










497 


1*00166' 


030010 


LPCNT: 


10 


498 


000170' 


000036 


TIMELNl 


30. 


499 


•00172' 


000012 


Errlvl: 


10. 



2 BITS) 



ILAA >, 1>4,4,4 
1400e0>MI.AA ,1>4>4>4« 
NLAA OEC/Xll SYSTEM EXERCISE 
VERSION 4 9/6/75 
BIN 



K MODULE 



/NLAA / ; NODULE NAME. 

OPEN jUSED TO KEEP TRACK OF WBUFF USAGE 

ilST DEVICE ADDS. 

;1ST DEVICE VECTOR. 
PRT?4*e ;1ST BR LEVEL. 

PRTY4+0 >2ND BR LEVEL. 

jDEVICE INDICATOR 1. 
, SNITCH REGISTER 1 
• ••••••»•»••,»•••••»•••»♦•••••••••••••••••♦♦•«♦*•♦••••«♦♦••••» 

; STATUS MORD. 
;MOOUI,e START ADDR. 
,MODUbE STACK POINTER. 
;PASS COUNTER. 
;CRROP COUNTER. 
;LOC TO SAVE R«. 
jLOC TO SAVE Rl. 
jLOC TO SAVE R2. 
jLOC TO SAVE R3. 
;LOC TO SAVE R4. 
;LOC TO SAVE R5 . 
jLOC TO SAVE R6. 
;ADDR or CURRENT CSR. 
;AD0R OF GOOD DATA, OR 
;CONTENTS OT CSR. 
;ADDR or BAD DATA/ OR 
jSTATUS REG CONTENTS. 
; EXPECTED DATA. 
jACTUAL DATA, 

;RESTART ADDRESS AFTER END OF PASS 
SPSIZ ;MODULE STACK STARTS HERE. 



WAIT, TIME, 
DEV8ET 



HSG6IZ, CKHSG, CRCMSG,MSGHED, HSG,PMHCNT 



(FLAG, IF >i> THEN ERRORS ON RECEIVED MSG'S 

I ARE TOTALLED AND PRINTED EVERY « PASSES 

;ir me, ERRORS ARE ALL REPORTED AS THEY HAPPEN. 

(ITERATIONS PER END PASS CALL 

J TIME OUT rACIOR, IN SECONDS 

I NUMBER or ERRORS TOLERATED 
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000174' 
•00176' 
•00200' 

<»00202' 

■;i!02a4' 

000206' 
000210' 



1 1 3726 

001134' 

001456' 

000000 

0.;00S3 

0d0000 
000000 



000212' 
•00213' 
•00214' 
000215' 
000216' 
000217' 
•00220' 
000221 ' 
•00222' 
♦0022 3' 
•00224' 
•00225' 
•00226' 
000227' 
•00230' 
000231 ' 



000 

001 
002 
003 
004 
005 
006 
007 

010 
011 

012 
01 3 
014 
015 
01b 
017 



113226 
ONEREC 
ONETHT 



;2 BYTES OF SYNC CHARACTER 
I ADDRESS OF WHERE 240 GOES 
; ADDRESS OE MHERE 240 GOES 



SPARE3: 
SPARE4: 



; PHYSICAL LINE TABLE, BYTE CONTAINS THE PHYSICAL 
:LINE f rOR THE FIRST LINE TO BE RUN. BYTE 1 WILL BE 
;THE PHYSICAL LINE RUN SECOND, ETC. 

}EACH BYTE IN THE TABLE HAS THE EOLLONING BIT MEANINGS: 



:BIT 0-3 
;BIT 4 
JBIT 5 
;BIT 6 
»BIT 7 

phytab: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE I 

rOR POINT-TO POINT, 1 FOR MULTI-DROp 

FOR SLAVE, 1 FOR MASTER (DERIVED FROM SRI) 

rOR HALr DUPLEX, 1 FOR FULL 

DO NOT TEST, 1 TEST (DERIVED FROM DVIDI) 





2 
3 
4 

5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 



537 
538 
539 
54« 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 



000232' 
•002 3 3 ' 
0002 34' 
•00235' 
000236' 
000237' 
•00240' 
•00241 ' 
000242' 
000243' 
000244' 
00024S' 
•00246' 
•00247' 
800250' 



000 

000 

t)00 
003 
000 
300 
Ht)0 

t)00 

00-» 
000 
000 
000 
b)00 
(10(4 
00? 



SERRTAB .KEEPS TRACK OF RETRY ERROR COUNTS FOB 
;EACH LINE 

EpRTAB: .BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE Pi 

.BYTE 

.BYTE 
.BYTE . 

.BYTE 

.PYTE 
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SEO ei39 



556 


(100351 • 


000 


.BYTE 





557 










558 










559 






>ECOUNT TABLE KEEPS TRACK OF 1 OF BAD MSG'S 


56a 


900252* 


000 


ECOUNTJ .BYTE 





56t 


00025 3' 


000 


.BYTE 





562 


000254' 


030 


.BYTE 





563 


900255' 


000 


.BYTE 





564 


900256' 


000 


.BYTE 





565 


930257' 


000 


.BYTE 





566 


900260' 


000 


.BYTE 





567 


000261 ' 


000 


.BYTE 





568 


900262' 


000 


.BYTE 





569 


99026 3' 


000 


.BYTE 





570 


900264' 


090 


.BYTE 





571 


900265' 


000 


.BYTE 





572 


900266 ' 


000 


.BYTE 





573 


900267 ' 


B00 


.BYTE 





574 


900270' 


000 


.BYTE 





575 


900271 ' 


000 


.BYTE 





576 






J 




577 






; 




578 






)MULTI>DROp STATION ADDRESS TABLE 


579 






(BYTE IS THE 


MULTI-DROP STATION ADDRESS 


580 






;FOR LOGICAL LINE 0, BYTE 1 IS FOR LOGICAL LINE 1. ETC. 


581 






;THIS ENTRY ONLY HAS MEANING IF CORRESPONDING 


582 






>BYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SFT 


583 






;AND BIT 5 OFF 


IE MULTI-DROP SLAVE TO BE TESTED 


584 


900272' 


000 


HDATAB: .BYTE 





585 


<»0027 3' 


001 


.BYTE 


1 


586 


900274' 


002 


.BYTE 


2 


587 


900275' 


003 


.BYTE 


3 


588 


900276' 


004 


.BYTE 


4 


589 


900277* 


005 


.BYTE 


5 


590 


000300' 


006 


.BYTE 


6 


591 


000301 * 


007 


.BYTE 


7 


592 


900392* 


010 


.BYTE 


10 


593 


900303' 


011 


.BYTE 


11 


594 


900304* 


012 


.BYTE 


12 


595 


900305' 


"13 


.BYTE 


13 


596 


000306' 


014 


.BYTE 


14 


597 


900 307' 


015 


.BYTE 


15 


598 


900310' 


01b 


.BYTE 


16 


599 


900311 * 


017 


.BYTE 


17 


600 






> 




601 






;MULTI>DROP STATION ADDRESS MENU TABLE 


602 






fTHIS TABLE INDICATES TO »NY LINE BUNKING AS 


603 






JMULTT-DROP MASTER, WHICH STATION ADDRESS TO 


604 






jATTEMPT TO EXERCISE CM THE HULIl-DROP LINE 


605 






;IT ALLOWS UP 


rO 15 DIFFERENT STATIONS TO BE 


606 






(TESTED ON A LINE. EACH BYTE MHICH IS NOTa-1 


607 






(INDICATES A STATION ADDRESS TO BE TESTED. EACH 


60S 






(STATION IS TESTED, BY THE ORDER OF THE TABLE, 


609 






(UNTIL THE FIRST OCCURANCE OF A -1 (BINARY 11111111) 


610 
611 


900312' 


377 


f 

HDMTABt .BYTE 


-1 
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612 


90031 3' 






613 


900314' 






614 


(♦00315' 






615 


900316' 






616 


(»003t7' 






617 


1*00320' 






618 


000321' 






619 


g00322' 






620 


000323' 






621 


000324' 






622 


900325' 






623 


900326* 






624 


900327' 






62S 


0SiJ33t5' 






626 


900331 ' 


377 




627 








628 








629 








630 


900332' 


016700 


177456 


631 


000336' 


301002 




632 


090340' 


104403 


000009' 


633 


S00344' 


912705 


000000 ' 


634 


900350* 


004567 


000000 G 


635 


900354' 


012767 


090200 


636 


900362' 


?12701 


0002 32' 


637 


900366' 


006 300 




638 


900370' 


103003 




639 


900372' 


156741 


004200 


640 


000376' 


009402 




641 


900400' 


1 46741 


004172 


642 


900404' 


105061 


000040 


643 


0004 1<)' 


020127 


000211 ' 


644 


000414* 


001 364 




645 


900416* 


026727 


004154 


646 


000424* 


001496 




647 


900426* 


012767 


000049 


648 


000434* 


016700 


177356 


649 


000440* 


000750 




650 


000442* 


095201 




651 


900444' 


916700 


177336 


65 2 


000450' 


105721 




653 


000452* 


1 00002 




654 


900454' 


012710 


000002 


655 


900460' 


062700 


000010 


656 


90046 4' 


920127 


090232' 


657 


900470* 


001 367 




658 


900472' 


905067 


004076 


659 


900476* 


005767 


000009G 


660 


900502* 


091 405 




661 


900504* 


1 04407 


000009' 


662 


000510* 


1 94407 


000000' 


663 


000514' 


000766 




664 








665 








666 








66? 









2(: 
3SI 



4St 
5t( 



6S: 

7S: 
esi 

9S: 



.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






MOV 


DVID1,R0 


(GET DEVICES TO BE TESTED 


BNE 


IS 


(ANY ACTIVE? 


ENDt, BEGIN 


! 


HOV 


fBEGIN.RS 


(PREPARE FOR NAT JSR 


JSR 


R5,DEVSET 


(GO ASK FOR PARAMETERS 


MOV 


•300, MASK 


(SET UP MASK 


HOV 


•PHyTABtl6.,Rl 


(GET END OF DEVICE TABLE 


ASL 


R0 


(CHECK EACH BIT 


BCC 


4$ 


(BR IF NOT ON 


BISB 


MASK,.(R1) 


(SET THIS LINE ACTIVE 


BR 


5$ 




BICB 


MASK,-(Rn 


(CLEAR THIS LINE 


CLRB 


32. (Rl) 


jCLCAR ECOUNI TABLE 


CMP 


Rl,tPHYTAB-l 


jDONE? 


BNE 


3$ 


jBK IT NOT 


CMP 


MASK, 140 


(BEEN HERE BEFORE? 


BEU 


61 


jBR IF YES 


MOV 


140, MASK 


(SET UP MASK 


MOV 


SR1,R0 


(GET SLAVE/MASTER INFO 


BR 


2S 


;G0 SET UP 


INC 


Rl 


(GET PHYTAB ADDP 


HOV 


ADDR,R0 


(GET DEVICE ADOH 


T5TB 


{RD* 


■DEVICE ACTIVE? 


8PL 


8S 


(BR IF NOT 


MOV 


12, {R9) (SET DATA TERM READY 


ADD 


•10, R9 


(BUMP R0 


CMP 


Rl,^PHYTABtl6. 


(DONE? 


BNE 


7» 


;BR IF NOT 


CLR 


MSGCNT 


(COUNTS WHEN TO DO SUMMARY 


TST 


MAIT 


(LINES SET UP? 


BEO 


RF5TRT 


(BR IF YES 


BREAKt 


BEGIN 


(TEMPORARY RETURN TO MONITOR,.., 


BREAKS 


BEGIN 


(THEN CONTINUE AT NEXT INSTRUCTION 


BR 


9t 


(WAIT TILL WAIT IS CLEARED BY NET2 


-OUT THF PROGRAM MANY 


LOCATIONS ARt REFFRtNCED 


{R4). 


1HI5 IS A MEANS 


Or KEEPING TWO SETS Or 
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668 
669 
670 
571 
672 
573 
674 
675 
676 
677 
678 
679 

bsm 

681 
682 
633 
684 
585 
686 
687 
688 
589 
69il 
691 
692 
693 
694 
695 
696 
697 
699 
699 
7HP1 
7P1 
7H2 
7(S3 
704 
7»>S 
700 
7»7 
738 
709 

711 
717 
713 
714 
715 
7)6 
717 
718 
719 
72H 
721 
722 
723 



.-VARIABLES, ONE FOR EACH OF THE ACTIVE LINES. 

;R4 ALWAYS CONTAINS k 9 If THE PROGRAM 15 CURRENTLY 

;REFEPENCING LINE B OR A 2 IF IT IS RErERENCING 
;LINE 1. 



000516' 


l«05767 


000000G 


hestrt: 


TST 


PiRCNT 


jHAS THERE BEEN A POWER FAIL? 


BeiJ522' 


001 402 






BEQ 


1$ 


;CONTINUE IF NOT, 


090524' 


1 04403 


000000' 




ENDt 


•BEGIN 


1 


900530 


00S034 




1$: 


CLR 


P4 


;FiRST ACTIVE LINE 


»0a532' 


016706 


1 77266 




HOV 


SPOINT.Rb 


;1NIT STACK 


•00536' 


905067 


004205 




CLR 


DR0PR4 


•CLEAR ALL EXIT FLAGS 


000542' 


005067 


004204 




CLR 


DR0PR4'<'2 




900546' 


805067 


004202 




CIS 


DTSRR4 




000552' 


005067 


004200 




CLR 


DTERR4*2 




000556' 


005067 


004176 




CLR 


CRCR4 




000562' 


005067 


004174 




CI,R 


CRCR4«2 




000566' 


005067 


004172 




CLP 


RCI0R4 




000572' 


005057 


004170 




CLP 


RCT0R4*2 




900576' 


005067 


004166 




CLR 


TXT0R4 




000602' 


005057 


004164 




CLR 


TXT0R4+2 




a0060u' 


005067 


004162 




CLR 


FDBKR4 




000612' 


005067 


004160 




CLR 


FDBKR4+2 




»«O0blS' 


005057 


004156 




CLR 


CHKR4 




g0«672' 


005067 


004154 




CLP 


CHKR4+2 




0^0625' 


P05067 


004114 




CLR 


PASTIM 


;CLR PASS TIME FLAG 


00063 2' 


00S067 


004106 




CLR 


BRKFLG 


;CLR FLAG THAT SaYS WE'RE IN BREA 


0<»0636' 


012767 


000212' 003734 




MOV 


IPHYTABrNXTLtN 


jPOlNTS TO NEXT LINE TO TEST 


000644' 


005067 


003766 




CLR 


LINACT 


;SHOW MO LINES ACTIVE 


000650' 


075727 


003724 000232* 


GETNXT: 


CHp 


NXTLXN,IPHYTAB*16. jDOSE ALL LINES? 


0i»065b' 


C0t440 






BEO 


DONE 


;BR IF SO 


000660' 


016700 


003714 




MOV 


NXTLIN,R0 


>GET AODR OF NEXT LINE 


000664' 


01 0064 


004644' 




MOV 


R0,CURLINCR4) 


;SAVE IT 


0y)0670' 


1 ?5060 


000020 




CLRB 


20(RO) 


;CLEAR RETRY COUNT FOR THIS LINF 


b0067»' 


005267 


003700 




INC 


NXTLIN 


;BUMP FOR NEXT TIME 


000700' 


1 1 1000 






HOVB 


(Re),R0 


;GET PHYSICAL LINE BYTE 


.)00702' 


0^2362 






BGE 


GETNXT 


jBP BACK IF BIT 7 NOT ON 


C30704' 


til6701 


177076 




MOV 


ADDR.Rl 


;SET UP TO CALC AODR 


0<)071^' 


004767 


004070 




JSR 


PCGETADR 


;G0 CALC ADDR 


000714° 


010164 


004602' 




HOV 


R1,DVA8AV(R4) 


;SAVE DVA FOR THIS LINE 


000720' 


016701 


177064 




MOV 


VECTOHfRl 


;SET UP TO CALC VECTOR ADDR 


t,00724' 


£04767 


004054 




JSR 


PCGETADR 


;G0 CALC 


«0073e' 


010164 


004606 * 




i<OV 


RlfVCTSAVlR*) 


J SAVE XT 


000734' 


005257 


003676 




INC 


LINACT 


jSHOH A LINE'S RUNNING 


000740' 


005064 


004660' 




CLR 


L00P(R4) 


iCLEAR ITERATION COUNT 


000744' 


005064 


004740' 




CLR 


RCVT0(R4) 


jCLR REC TIME OUT COUNT 


000750' 


032700 


000020 




BIT 


*20f R0 


;MULTI DROP OR NOT? 


000754' 


001 377 






BNE 


HD 


;BR IF IT IS 


000756' 


000427 






BR 


PP 


jBR IF NOT TO P TO P 


000750' 


005767 


003652 


DONE: 


TST 


LINACT 


:ANY LINES RUNNING? 


000764' 


001 402 






BEQ 


IS 


>BR IF NO 


000756' 


0031 67 


003306 




JMP 


TIMCHK 


J IF YES GO Check for time out 


000772' 


012701 


000212' 


Itl 


MOV 


IPHYTAB.Rl 


jMUST check if maybe ALL LINES DP 


000776' 


1 05721 




2t! 


TSTB 


(Rl) + 


;IS THIS LINE STILL SELECTED? 
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721 


00100''' 


1 00405 




775 


»01t)02' 


022701 


000232* 


726 


001006' 


001 373 




727 


001010' 


1 04403 


000000' 


728 








729 


0<"i»ll 1' 


01 2767 


000001 


73.5 








731 


P01022' 


t;057b7 


003716 


732 


001026' 


0,31002 




7 33 


n01030' 


000167 


003360 


734 








735 


00 1 3 4 ' 






735 


W01031' 


1 194400 




737 








738 


(•01036' 


e!2764 


000001 


739 


t>01t'44' 


032700 


000100 


74H 


1501050' 


001 402 




741 


P01O52' 


0001 67 


000512 


742 


»0105t>' 


005064 


004734' 


743 


£31062' 


032700 


000040 


744 


001066* 


001 1 41 





745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
755 
757 
758 
759 

761 
762 
763 
764 
765 
756 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 



301i>70' 
001 070' 
paiP76' 
1*01104' 
001 112' 
f'tfl 120' 
001 176' 
0011 32* 
001 I 34' 
001 1 3b' 
001 140' 
001 1 46' 
H01 154' 

001 170' 
B01 176' 
031202' 
001210' 
001214' 
001 216' 
001224' 
001230' 
001236' 
1101240' 
»01244' 
001250' 
001 254' 
001 260' 



001254' 
B01272' 
001276' 



P16464 
016754 
062764 
016764 
066764 
004757 
000462 
,)00401 
000432 
012754 
f;16764 
062764 
at ?754 
012764 
004767 
016761 
l»04767 
000423 
042774 
005264 
026764 
003314 
005367 
016403 
042713 
005063 
0001 67 



042774 
012703 
000401 



4s: 

fPOI 



004612' 004616' 
000000G 004622' 
000012 004622' 
177052 004626' 
177044 004526' 
000766 



000000C 004670' 
000000C 004700' 
000012 1)04700' 

011120* 004674' 
002704 

175762 004710' 
002162 

000004 004602' 
004660' 

176732 004660' 

003372 

004602' 

177775 

000004 

177354 



000004 004602* DERR: 
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BMI 


3S 


;BR OUT IF YES 


CP 


IPHYTABf 16.,R1 


;CHECKED ALL 16? 


BNE 


2S 


jBR BACK IF NO 


ENDI, BEGIN 




MOV 


11 .pASTTM 


;SHOW IT IS TIME FOR ENDPAS 






•FOR BREAK LOOP 


TST 


BRKFLG 


;ARE HE IN A BREAK LOOP? 


BNE 


4S 


;BR IF WE ARE 


JMP 


EPASS 


;G0 DO END OF PASS 


EXITS 




;EXIT TO MONITOR. MODULE WAIT FOR INTERUPT, 


TO POINT 






MOV 


ll,FDFLAG(R4) 


;SAY HERE FULL DUPLEX 


BIT 


(100, R0 


;HALF OR FULL DUPLEX? 


BEQ 


IS 


;BR IF HALF 


JMP 


PPFD 


;JMP TO FULL DUPLEX ROUTINE 


CLR 


FDrLAG(R4) 


;CORRECT FLAG CAUSE WERE NOT FD 


BIT 


•40, R0 


; SLAVE OR MASTER? 


BNE 


pphdm 


;BR IF MASTER 


TO POINT 


HALF DUPLEX, SLAVE 


MOV 


AMSGBF(R4),RECADR(R4] >SET UP INPUT AREA 


HOV 


MSGSIZ,RECCNT(R4) >5ET UP COUNT 


ADO 


I12,RECCNT(R4) 


iCORRECT FOR HEADER AND CRC 


MOV 


TIMELN,PECTIMCB4) jHOW LONG TO WAIT 


ADD 


TIMeLN,RECTlH(R4) jDOUBLE IT 


JSR 


PC, REC 


fGO RECEIVE DATA 


BR 


FERR 


;BP TO ERROR ROUTINE 


BR 


IS 


•HAKE THIS A NOP»240 TO 


BR 


PPHDS2 


;D0 OHE-HAY-IN CREC. ONLYl 


MOV 


•HSGHED,TXADR1(R4] (GET MESS ADR 


MOV 


MSGSIZ,TXCNT1CR4) iGET MSG SIEE 


ADD 


•12.TXCNT1 (R4) 


jCORRECT FOR HEADER AND CPC*S 


MOV 






MOV 


»FiLL,TXA6R2CR4) 




JSR 


PC,CTS 


;G0 GET CLEAR TO SEND 


MOV 


TIMELH,TNTTIM(R4 


) ;GIVE 'FH 1/2 MINUTE 


JSR 


PC.TMT 


;G0 TRANSMIT 


BR 


DERP 


;BP TO ERROR ROUTINE 


BIC 


•4,»OVASAV(R4) 


;K1LL REQ TO SEND 


INC 


L00P(B4) 


;C0UNT AN ITERATION 


CMP 


LPCNT,L00P(R4) 


;DONE ENOUGH 1 


BGT 


PPHDS 


jNO, GO DO ANOTHER TIME 


DEC 


LINACT 




MOV 


DVASAV(R4),R3 


;GLT DEVICE ADDRESS 


BIC 


1177775, fR3) 


;KILL ALL BUT DTP 


CLR 


4CR3) 


;K1LL TRANSMITTER TOO 


JMP 


GETNXT 


jYFS DO NEXT LINF 


BIC 


f 4,aDVASAVCP4) 


;KILL REQ TO SEND 


HOV 


S-1,R3 


;SET FLAG FOR WHICH PFT"RN 


BR 


FFPRl 
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SKQ 0143 



790 


001 300' 


03500 3 


781 


•01 302 * 


016401 


7R2 


00 1 306 ' 


1 ^5261 


78 3 


i/lil 312' 


1 261 67 


784 


001 32k' ' 


002003 


785 


001322' 


005703 


786 


001 374 ' 


091703 


787 


»01 326* 


0007 36 


788 


001 330 ' 


142711 


789 


Ml 334' 


005264 


79B 


»0I 340* 


1 »44l 1 


791 


001 346 * 


0B5767 


792 


001352' 


001 402 


793 


001 354' 


095004 


794 


001 356 ' 


000402 


795 


B01 360' 


01 2704 


796 


00 1 3 5 4 ' 


005364 


797 


901 370' 


800723 


798 






799 






H0«* 






fti3 1 






8(32 


00 1 3 7 2 




fl»3 


001 37 2' 


?1 2764 


804 


001 400 ' 


01 6764 


Bi;?5 


001 406 ' 


062764 


8td6 


001414' 


01 2764 


807 


001 422 ' 


01 2764 


fi0ft 


O0143P' 


004767 


809 


■>01434' 


016754 


810 


001 44 7 ' 


004767 


81 t 


W 1 446 ' 


0004 34 


812 


4101450' 


047774 


813 


001456' 


0004 01 


814 






815 






816 


a0146»'' 


^004 1 7 


817 


901 462 ' 


01 6464 


8 18 


001 470' 


nl 6764 


P 1 9 


Hill 476' 


062764 


82i!^ 


001504' 


01 6764 


82 1 


001 5 1 2 ' 


0*) 4 7 6 7 


822 


00 1 5 1 6 ' 


0004 1 3 


823 


001520' 


005264 


824 


00 15 24' 


026764 


825 


^ 5 ^ . 


003317 


826 


001 534 


000 167 


827 






828 








00 1 540 * 


042774 


Sid 


001546' 


016401 


831 


001552' 


1 05251 


832 


031556' 


1 26157 


833 


001564' 


002261 


834 


001566' 


000754 


835 







004644' 

000020 

000020 176652 



000300 
004750' 

01 1124* 0005»00' 
003376 



FERR! 
EEBRl : 



000002 
004750' 



000000G 

000000G 

000012 

000004 

011120* 

002452 

176530 

001730 



004670' 
00470H' 
004700* 
004704' 
004674* 

004710' 



000004 004602' 



004612' 004616' 

000000G 004627' 

000012 004622' 

176460 004626' 
000402 

004660' 

176436 004660' 



000004 004602' 
004644' 

000020 

000020 176406 



CL.P 


B3 


MOV 


CURLIM{R4 ) t Bl 


IHCB 


20(R1 ) 


CMPB 


70(R1 1 » ERRLVL 


BGE 


DROP 


T5T 


R3 


BFQ 


ONEBEC 


BP 


PPHDS2 


BICB 


1200/ (Bl ) 


INC 


DROPR4(R4) 


MSGNt 


ADROP, BEGIN 


TST 


DR0PR4 


BEQ 


1$ 


CLR 


R4 


BR 


2$ 


HOV 


t2,R4 


DEC 


0R0PB4(R4] 


BP 


LHDONF 



;SET FLAG FOR WHICH BETURN 
;GET LINE i ADDP 
;COUNT AN ERROR 
jTOO MANY ERROPS? 
;BP IF YES 

;DC A TMT OR DO A REC? 

;BB IF TMT 

jGO TPY AGAIN 

;DPOP THE LINE FROM TEST 

,SEE NOTE 1 IN FRONT OF LISTING 

;ASCII MESSAGE CALL WITH COMMON HEADER 



l$i 
2S> 



JPOINT TO POINT HALF DUPLEX MASTER 



HOV 
MOV 
ADD 
HOV 
MOV 
JSR 
MOV 
JSR 
BR 
BIC 
ONETMTJ BP 



BR 

1 s : MOV 

MOV 
ADD 
MOV 

JSR 
BR 

PPHDH2: INC 
CMP 
BGT 
JMP 



GERRt BIC 
HERRI MOV 
INCB 
CMPB 
BGC 
BR 



IMSGHEDrTXADRl (R4> 

HSGSIZ,TXCnT1(R4) 

I12,TXCNT1(R«) 

I4,TXCNT3(R4] 

|FILL,TXADR2(R4) 

PC,CTS 

TIMELM,TMTT1M(R4) 

PC, TMT 

GERR 

I4,0DVASAV(R4) 
1( 



PPHDM2 

AMSGBr(R4),RECADR(R4) 

MSGSIZ,RECCNT(R4] 

I13,RECCNT(B4) 

TIHELN,RECTIN(R4) 

PC, REC 

HERR 

L00P(R4) 

LPCWT,LO0P(R4) 

PPHDM 

LNDONE 



•4,0DVASAV(R4) 

CURl.INtP4),Rl 

20(Rn 

20(R1),ERRLVL 

DROP 

PPHDM2 



GET MSG ADDRESS 
GET MSG SIZE 

CORRECT FOR CRC AND HEADER 
ISCND 4 FILLS AFTER MSG 

;G0 GET CLEAR TO SEND 

jGIVE 'EM 1/2 MINUTE 
;G0 TRANSMIT 
; ERROR RETURN 
;KILL PEO TO SEND 
;MAKE THIS A NOP«240 FOR ONE 
;WAY OUT, TMT ONLY. OTHER SIDE 
;0F LINE MUST DO ONE MAY IN. 
,U5E0 FOR ONE WAY OUT ONLY 
;SET UP INPUT AREA 
;SET UP COUNT 

.•CORRECT FOR HEADER AND CPC 

;GIVE EM 1/2 MINUTES 

;G0 RECEIVE 

; ERROR PETURN 

;C0UMT AN ITERATION 

jDONE ENOUGH? 

>BR IF NOT 



;KILL REO TO SEND 
;GET line • ADDRESS 
;COUNT AN ERROR 
;T00 MANY ERRORS? 
;BR IF YES 
;G0 TRY AGAIN 
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836 
837 
8 38 



; POINT -TO-POINT FULL DUPLEX 



866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
8i)0 
88 1 
882 
883 
884 
885 
886 
P87 
888 
889 
»9^ 
B91 



8 39 


0IJ1573' 


d'2700 


000040 




PPFD; 


BIT 


840 


#01574' 


1^01003 








BNE 


841 


001576' 


01 2754 


177777 


004734' 




MOV 


842 


P<)1504' 


B04767 


002276 




ISI 


JSP 


843 




015464 


004612' 


004615' 


PPFDl ! 


HOV 


844 


001610' 


pi 6764 


000000G 


004522' 




MOV 


845 


001624' 


052754 


00001 2 


004522' 




ADD 


846 


001532' 


00476 7 


000362 






JSP 


847 


031536' 


000500 








BP 


84b 


,331540' 


000441 








BP 


849 


00164 2 ' 


W / 6 4 


000000^ 


0«46 7 •>> ~ 






85il 














851 


0rf1 650' 


015754 


0000006 


004700' 




MOV 


857 


0J1556' 


062764 


000012 


004700' 




ADD 


853 


031664' 


01 2764 


000004 


004704' 




MOV 


854 


001672' 


012764 


011120' 


004674' 




NOV 


855 


001700' 


004767 


001472 






JSR 


856 


•01704' 


000455 








BP 


857 


00170b' 


00041 2 








BR 


858 


<»01710' 


01 2700 


002106' 






MOV 


859 


001714' 


016701 


176350 






MOV 


860 


^01720' 


H66701 


176244 






ADD 


861 


001724' 


•«12702 


000000 






MOV 


862 


001730' 


0001 57 


002370 






JMP 


853 














864 


»01734' 


012764 


000001 


004720' 


is: 


MOV 


865 


001742' 


104400 








EXIT* 



140, B0 jMASTtR OR SLAVE? 

1$ ;BB IF MASTER 

•177777, FDrLAG(R4) ; SHOW ITS SLAVE 

PCCTS jGO GET CLEAR TO SEND 

AHSGBF(R4),PECADR(P4) ; GET INPUT AREA 
MSCSIZ,RECCNT(R4) ;SET UP COUNT 

•12,RECCNT(R4) jCORRECT FOR CPC AND HEADER 
PC, REC ;G0 GET RECEIVING STARTED 

JERR ;REC ERROR RETURN 

FORCDN {REC DONE 

jGET TMTADDP 
MSGSIE.TXCNTl (B4) ;GET TMT COUNT 

•12,TXCNT1(R4) jCORRECT FOR HEADER AND CRC 
I4,TXCNT2(R4) ;SEND 4 FILLS AFTER MSG 

IFILL,TXADR2(R4) 



PC, TMT 

JERR 

18 

•FDTO,R0 
TIMELN.Rl 
TIMELN.Rl 
10, R2 
TIMKEP 

»1,TMtD0N(r4) 



J GO TMT 

;THT ERROR RETURN 
jGOOD TMT DONE RETURN 

jFULL DUP RETURN, SET UP FOR TIME OUT 
;GIVE EM 1 MINUTE 



;SHOW ITS 
jGO WAIT 



A REC WAIT 



JSHOW TMT IS DONE 

jEXIT TO MONITOR. MODULE WftlT FOB INTERUPT. 



001744' 


005754 


004723' 




fdrcdn: 


TST 


TMTD0N(P4) 


jIS TMT DONE YET? 


001750' 


001020 








BNL 


41 


;BP if YES 


001752' 


005754 


004774' 






inc 


FDBKR4(R4) 


jSEE NOTE 1 In FROnT oF LISTING 


001756' 


104407 


000000' 






HREAKt 


BEGIN 


;TEMPORAHY RETURN TO MONITOR,.,. 


001762' 


1 04407 


000000' 






BREAKS 


BEGIN 


jTHEN CONTINUE AT NEXT INSTRUCTION. 


•01766' 


005767 


003002 






TST 


FDBKR4 




001772' 


001402 








BEO 


3( 




001774' 


005004 








CLR 


H4 




031776' 


000402 








PP 


3t 




002000' 


01 2704 


000002 




2(: 


MOV 


• 2,R4 




002004' 


005164 


004774' 




38: 


DEC 


FD8KR4(R4) 




002013' 


000755 








BR 


I DRCDN 


;BR AND WAIT SOME MORE 


e02012' 


005264 


004660' 




4S: 


INC 


L00P(R4) 


;COUNT AN ITERATION 


002016' 


026764 


176144 


004650' 




CHP 


LPCNT,L00P(P4) 


;DONE ENOUGH 


002024' 


003271 








BGT 


PPFDl 


;N0, GO DO MORE 


032076' 


042774 


000004 


004632' 




BIC 


f 4, aDV*SAV(R4) 


;KILL REO TO SEND 


'»»2034' 


0001 67 


177200 






JMP 


LNDONP 












;FD TMT 


f.HROR 






002040' 


012754 


000001 


00472«' 


JFRr: 


MOV 


ll,THTDO>J(F^-' 


;DON'T BOTHFR WAITING fOf> JHJ 


?02046' 


1M2764 


177777 


e?i464v«' 




MOV 


• 1 77777, A80'T{ 


R4) ;TELL INT ROUTINFS TO GIVE UP 


0^2054' 


1316401 


004644 ' 






MOV 


CUPLIN(P4),PS 


;GET CURRENT LINE INFO 


l»03050' 


105261 


00002(1 






INCB 


2(1(811 


jCOilNT iNOTHEB EPKOP 
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SEQ 0145 



892 
893 
894 

895 
S96 
897 
898 
899 
9vv 
9U1 



002064' 126167 
1102072' 002724 
M2074' ft42774 
»a2102' 900167 



(»«2106' 012764 
»S2i%n' 000167 



000020 l7Mt1k< 



000004 

177222 



002040' 

eeiiii^ 



OiM«n«2' 



CMPB 
BIT 
BIC 
JHP 



20(R1)>CRRLVL 
(DRCON 

f 4,*DV«SAV(R4) 

DPOP 



J TOO HANK ERRORS? 
;N0 GO TRY AGAIN 
SKILL REO TO SEND 
IGIVE UP OH THIS LINE 



»ruLL DUPLEX RECEIVER TIMEOUTS COHE HERE 
0a46(>4' rDTO! MOV S JEBR.BECPTHCR*! "SBT UP CORRECT RETURN 

JKP RDTO JGO REPORT PEC TIME OUT 
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902 
90 3 
904 
905 
9M6 
987 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 



002120* 
902124' 
(•02130* 
H02134' 
302136* 
002142' 
002146* 
002154' 
002160* 
002162' 
002170' 
002174' 
002200' 
002202' 
902206' 
002212* 
002216' 
002224' 



012664 
016401 
012711 
960421 
116711 
e«5064 
012764 
005764 
001 410 
052774 
016402 
062702 
010207 
012700 
nl640i 
017702 
052774 
00;tl67 



004664' 
004606' 
002230' 

175650 
004640' 

000001 004632' 
004734* 

000100 004602' 
004664* 

000004 

003230* 
004626' 
000000 

000100 004602' 
001774 



i 

> SUBROUTINE TO 
{CALLED WITH A 
;AFTER SETTING 
;AHD DVASAV(R4) 
;2 SYTES PAST C 

; 

RECl NOV 
MOV 
MOV 
ADD 
MOVB 
CLR 
MOV 
TST 
BEQ 
BIS 
MOV 
ADD 
MOV 

1S( MOV 
MOV 
MOV 
BIS 
JMP 



RECEIVE DATA 
JSR PCREC 

LOCATIONS ReCADRCR4).RECCnT(R4),RECTIM(R4),VCTSAV(R4). 
. RETURNS ON ERROR OR RETURNS 
ALL IF NO ERROR 



(R6}-»,RR:CPTN(R4 

VCTSAV(R4),R1 

IRECINT, (Ri) 

R4,(R1)* 

BRl,(Rn 

AB0PTfR4) 

tl,SYNCNT(R4) 

FDFLAG(R4) 

It 

I100,«DVASAV(R4 

RECRTN(R41,R2 

14, P2 

R2,R7 

IRDTO,R0 

BCCTIM(R4),R1 

l0rR2 

I100«*DVASAV(R4 
TIMKEP 



);SAVE RTN ADDR 

•GET VECTOR ADR 

;MOVE IN INT. ROUTINE AOR 

;CORRECT FOR WHICH LINE 

jHOV IN PRIORITY LEVEL 

;CLEAR ABORT FLAG 

;MUST GET 2 SYN CHARACTERS 
;FULL DUPLEX? 

;BR IF NOT 
) jKICK OFF REC 

;GET RETURN ADDRESS 

jFD RETURN 

jRETURN 

; RETURN ADDR 

;HOW LONG TO WAIT 

;SHONS ITS A REC WAIT 
);ENABLE INT AND READ 

JEXIT TO TIMKEP AND WAIT 



.•RECEIVER INTERRUPT ROUTINE 



930 


002230* 


400405 




RECINT1 


BR 


1$ 




931 


902232* 


010446 






HOV 


R4,-(R63 


J SAVE R4 


932 


002234* 


010346 






MOV 


P3,-CR6) 


(SAVE R3 


933 


•0223b* 


012704 


000002 




MOV 


12, R4 


(SET UP FOR SECOND LINE 


934 


002242' 


000403 






BR 


2* 




935 


002244' 


010446 




ISl 


MOV 


R4,-(R6) 


;SAVE R4 


936 


002246' 


010346 






MOV 


R3,-(B6) 


jSAVE R3 


937 


002250' 


005004 






CLR 


R4 


;SET UP FOR FIRST LINE 


















939 


002256* 


005764 


004640' 




TST 


AB0RT(R4) 


jciVE UP? 


940 


002262* 


001403 






BEQ 


3* 


;BP IP NO 


941 


002264* 


042713 


000140 




PIC 


1140. (R3) 


;OISABLE REC INT.S 


942 


002270' 


000452 






BR 


7t 


;AND LEAVE 


943 


002272* 


011364 


004654* 


3«i 


MOV 


(R3).eRRHD(R4) 


;SAVE STATUS 


944 


002276' 


016346 


000002 




MOV 


2(R3).-{R6) 


jSAVE CHARACTER AND ERR PITS 


945 


002302* 


005764 


004632' 




TST 


SYNCNT(R4) 


;ARE WE IN SYNC 


946 


002306* 


P01 41 3 






BEQ 


5$ 


;BB IF YES 


947 


#02310* 


122716 


000220 




CMPB 


I220f (R6) 


;IS IT A OLE? 


948 


002314* 


001401 






BEQ 


4S 


;BP IF YES 


949 


002316' 


000434 






BR 


6S 


;NOT IN SYN SO THROM AWAY 


950 


•02320' 


005064 


004632' 


4s: 


CLR 


SYMCNT(R4) 


;SHOH WE'RE IN SYN 


951 


002324* 


005764 


004734' 




TST 


FDFLAG(R4) 


;FD SLAVE? 


952 


002330* 


S 00002 






BPL 


5$ 


;BR IF HOT 


953 


002332* 


005064 


004724' 




CLR 


TSYNCT(R4) 


;LET TMT CO IF FULL DtiP 


954 


002336* 


005767 


175622 


5$: 


TST 


REPORT 


; REPORT ERR NOW OR LATER 


955 


002342* 


00101 3 






BNE 


51$ 


;BR IF LATER 


956 


002344* 


105764 


004654* 




TSTB 


ERRWD(R4} 


;IS REC DONE SIT SET? 


957 


002350' 


1 00040 






BPL 


KERR 


;BR IF NOT 
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9SB 


«>a2352' 


005716 








959 


•02354' 


1 >I0006 








9bO 


002 356' 


?12664 


004654 ' 






961 


»02362' 


042764 


100000 


004654 ' 




962 


»02170' 


0004 31 








963 


002372' 


1 11674 


004616' 




51t: 


964 


002376' 


005264 


004616' 






965 


fa2402' 


005364 


004622' 






96b 


002406' 


003406 








967 


002410' 


90572b 






6t! 


968 


002412' 


052713 


000100 






969 


0024J6' 


012603 






7«! 


970 


002420' 


012604 








971 


032422' 


000002 








972 


002424' 


016467 


004650* 


000014 


8t: 


973 


007432' 


005726 








974 


00243 4' 


0477 1 3 


000140 






975 


002440' 


012603 








976 


002442' 


012604 








977 


002444' 








RPIRO: 


978 












979 


002444 ' 


000004 


002654* 


000000* 




980 












991 










J 


982 


002452* 


005726 






RERRI 


983 


0024S4' 


012603 








984 


002456' 


042774 


000140 


004602' 




985 


002464* 


01 2767 


002512* 


000014 




986 


002472' 


060467 


000010 






987 


002476' 


060467 


000004 






988 


002502' 


012604 








989 


002504' 








It: 


990 












991 


002504' 


000004 


002512* 


000000' 




992 












993 


002512' 


005004 






2t: 


994 


00251 1' 


000402 








995 


002516' 


01 2704 


000002 






996 


002522' 


016467 


004602' 


175320 


3t: 


997 


002530' 


016467 


004654* 


175314 




998 


0025 36* 


016401 


004644' 






999 


002542' 


111102 








11)00 


002544 ' 


042702 


177760 






1001 


002550' 


005764 


004654* 






1002 


002554' 


100010 








1003 


002556' 


010267 


175772 






1004 


002562' 


062767 


002000 


175264 




1005 












1006 


002570' 


104404 


000000' 






1^07 












1008 


002574' 


104400 








1009 












1010 












101 1 


002576' 


010267 


175252 




datacri 


1012 


002602' 


1 16467 


004655' 


175245 




1013 


0026M' 


042767 


107400 


175236 





TST 


IR6) 


;OATA ERROR? 




BPL 


51t 


;BR ir NO DATA tPP 




MOV 


(R6)>,ERRMD(R4) 


;SAVE INFORMATION 




BIC 


•100000. ERRHD(R4) ;USE BIT 15 FOR 


FLAG TO RERP 


BP 


RCPR+7 




IN buffeV 


MOVB 


(R6)i*PECADR(R4) 


(STORE THE CHAP 


INC 


REC ADR( R4 } 


;FOP NEXT TIME 




DEC 


RECCMT(B4) 


;COUNT IT 




BLE 


et 


;BR ir DONE 




TST 


(R6)* 


;FIX STACK 




BIS 


•100. (R3) 


; READ ANOTHER 




HOV 


(R6)t.P3 


;RESTORE R3 




MDV 


(R6)+,R4 


; RESTORE R4 




RTI 




: RETURN 




MOV 


RECD(R4).RPIRQ*2 










;FIX STACK 




BIC 


•140. (R3) 


;DISABLE REC INT.S 




HOV 


CR6)«,R3 


; RESTORE REGS 




MOV 


(R6)*,R4 






PIRQt 


RCCDN . BCG^N 


; RTI AND QUEUE 


UP TO CONTINUE AT 


TST 


tR6) + 


;FIX STACK 




HOV 


(R6)^.R3 


;PESTORE REG 




BIC 


•t40,*DVASAV(R4) 


;BESET THE RECEIVER 


MOV 


t2$.l('»2 


;SET UP TO PIRO 


TO 


ADD 


R4,l$+2 


:THE RIGHT PLACE 




ADD 


R4. 114^2 






NOV 


(R6)t.R4 


; RESTORE REG 





PIRQI.2$.BEGIN 



CLR 

BR 

MOV 

MOV 

MOV 

MOV 

MOVB 

BIC 

TST 

BPL 

MOV 

ADD 



R4 
3t 

• 2.R4 

DVASAV(R4),C6RA 

ERRH0(R4)>ACSR 

CURLIN(R4).R1 

(R1}.R2 

•177760. R2 

ERRWD(R4) 

DATAEP 

P2,ASTAT 

•002000. AST AT 



ERRORS, BEGIN 



RTI AND QUEUE UP TO CONTINUE »T 2S 



SHOW ITS LINE 

SHOW ITS LING 1 

SET UP FOR EPR CALL 

SET UP FOR ERR CALL 

GET ADDR OF CUR LINE BYTE 

GET VALUE OF LINE • 

THROW OTHER BITS AWAY 

(IS IT A DATA OR LINE CHANGE ERP 
BR IF DATA ERR 
SET UP ERR INDICATION 
SHOW WHICH TYPE 



EXIT* 



MOVB 
BIC 



DATA SET CHANGE 
jEXIT TO MONITOR. MODULE WftJT FOR INTERUPT. 



R3.ASTAT ;SET UP ERR LINE • 

ERRHD+1(R4).ASTAT + UGET ERR TYPE 
•107400. ASTAT ;LEAVE ONLY ERR BITS 
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1014 


002616' 


005264 


004754' 






INC 


DTERR4(R4) 


;SEE NOTE 1 IN FRONT OF LISTING 


1015 
1016 


002622' 


104404 


000000' 






ERRORS 


.BEGIN 


;DATA ERR 


101 7 


















1018 


002626' 


005767 


002122 






1ST 


DTERR4 




1019 


002632' 


001 402 








BEQ 


IS 




1020 


002634' 


005004 








CLR 


R4 




1^21 


•02636' 


000402 








BR 


2$ 




1027 


002640' 


012704 


000002 




1>: 


MOV 


12, R4 




1023 


002644' 


005364 


004754* 




2s: 


DEC 


DTERR4(R4) 




1024 
1025 










;CHECK 


ASTAI 


IN ERROR MESSAGE 




1026 










;0100XX 


■ REC 


DATA PARITY ERROR 




1077 










;0200XX 


* fpAHIhG ERROR 




1028 










r0400xx 


> OVERRUN 




1029 










IXX a PHYSICAL 


LINE • 




103<4 


















1031 


002650' 


0001 67 


000230 






JMp 


RRET 


jGO DO AN ERROR EXIT 


1032 










! 








1033 


















1034 


















1035 


!»02654* 


005004 






RFCDN: 


CLR 


R4 


JSHOW WE'RE LINE 


1036 


002656' 


000402 








BR 


It 




1037 


032660* 


012704 


000002 






HOV 


• 2,R4 


iSHOW WE'RE LINE 1 


1038 


002664* 


042774 


177771 


004602' 


'5: 


BIC 


•177771. •DVASAV(R4) jSHUT UP DEVICE 


1039 


002672* 


005064 


004740' 






CLR 


RCVT0(P4) 


jRESET TIME OUT RETRY COUNTER 


1040 


002676' 


005064 


005040' 






CLR 


RETTAB(R4) 


;KILL IMPENDING TIMEOUT 


1041 


002702* 


005767 


000O00G 




3S: 


TST 


CKHSG 


J IS CHECK MSG ROUTINE BUSY? 


1042 


002706* 


001420 








BEQ 


6S 


;BB IF NOT 


1043 


002710* 


005264 


005000' 






INC 


CHKR4(R4) 


;SEE NOTE 1 IN FRONT OF LISTING 


1044 


002714' 


104407 


000000' 






BREAKS 


.BEGIN 


JTEMPORAPY RETURN TO MONITOR.... 


1045 


002720* 


104407 


000000' 






BREAKS 


.BEGIN 


jTHEN CONTINUE AT NEXT INSTRUCTION. 


1046 


002724* 


005767 


003050 






TST 


CHKR4 




1047 


002730' 


001402 








BEQ 


4t 




1048 


002732' 


005004 








CLR 


R4 




1049 


002734' 


000402 








BR 


5S 




1050 


092735' 


013704 


000002 




4(: 


HOV 


• 2.R4 




1051 


002742* 


005364 


005000' 




5S: 


DEC 


CHKR4tR4) 




1052 


002746' 


000755 








BR 


it 




1053 


002750' 


016402 


004612' 




6S: 


MOV 


AMSGBF(R4).R2 


;GET REC DATA 


1054 


002754' 


026762 


177776G 


000006 




CMP 


MSG-2.6(R2] 


;IS HEADER CRC OK? 


1055 


002762' 


001407 








BEO 


7S 


;BR IF OK 


1056 


002764* 


005767 


175174 






TST 


REPORT 


(REPORT ERR NOW? 


1057 


082770* 


0^1055 








BHE 


X5 


;BR IF LATER 


1059 


002772* 


012767 


003000 


175054 




MOV 


•003000>ASTAT 


(SHOW ERR TYPE 


1059 


003000* 


000466 








BR 


RECERR 




1060 


003002* 








7s: 








1061 


003002' 


I 17467 


004644' 


000040 




H0V6 


BCURLIN(P4) ,9S 


(GET LINE • 


1062 


003010' 


042767 


177760 


000032 




BIC 


•177760, 9S 


(LEAVE ONLY LINE BITS 


1063 


•03016' 


005767 


175142 






TST 


REPORT 


(REPORT BAD DATA? 


1P64 


003022* 


001403 








BEQ 


9$ 


[BR IF YES 


1065 


003024' 


052767 


100000 


00001 6 




HIS 


ll000n0.Q$ 


(SET FLAG TO CKMsG 


1066 


003032' 


062702 


000010 




fiS: 


ADD 


•10, P7 


(GET ADDR OF t«SG 


1067 


003036' 


010267 


000010 






MOV 


R2,9t*2 




1069 


003042* 


004567 


000002G 






JSR 


t.5,CKMSG*2 


[GO CHECK MSG 


li«69 


031046' 


asdapji* 








BEGIN 
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SEO ei49 



1870 
1971 
1072 
1073 
1074 
1075 
1276 
1077 
1073 
1079 
1080 
1061 
1062 
1083 
108 4 
1085 
1086 
1087 
1088 
10S9 
1090 
1091 
1092 
1093 
1094 
1095 
1095 
1097 
1098 
1099 
1100 

1 102 
1 103 
1104 
1 105 
110b 
1 107 
1108 
1 109 
1110 
1 1 1 1 
1112 

im 

1114 
1115 
1116 
1117 
1118 
1119 
) 120 
1121 
1122 
1123 
1124 
1 125 





Onto IP WD 






9S t 









•03052' 


090000 















•03054' 


030417 








BR 


X4 


J BAD RETURN 




066702 


000000G 






ADD 


MSGSIZ,R2 


"POINT IT TO MSG CRCf DATA WAS OK 


003062' 


1 26722 


000000G 






CHPB 


CRCMSG.- (R2)» 


jcHECK 1ST CRC BYTE 


003066 ' 


031 025 








BNE 


CER 


•0 3 7 C'* ' 










CPB 


CRCSG+I , (R2)* 


;CHECr SECONU 


003074' 


001022 








BNE 


CER 




093676* 


S&2764 


000002 


004664 ' 




ADD 


«2,PECRTN{R4) 


•GOOD RETURN 










RRETj 


CLh 


RETTAB(R4) 






0001 74 


0046b 4 






JHP 


•RECRTN(R4) 


J AND GO BACI^ 


003 114 








X4 : 


TST 


REPORT 


J REPORT ERR NOW OR LATER? 


003 120' 


001001 








BNE 


XS 


|BR ir LATER 


003122 


VDV 1 I V 








BR 


RRET 


;0THERWl5E RETURN 


003124' 


1 1 7402 


00464 4 ' 




> 

X5| 


MOVB 


fCURLIN(R4)f R2 














BIC 


I17776B»R2 






1 05262 








INCB 


EC0UNT(R2) 


*count An error for that Line 


00 3140 


00076 1 








BR 


RRET 


;AND return 




P95767 


1 50 6 




; 

CEr; 


TST 


REPORT 






001 366 








BNE 


XS 


|BR IF LATER 


00 3 1 5k4 


01 2767 




1 74676 




HOV 


I004000>A8TAT 


J Indicate error type 


UM^I^?' 




0046 44 ' 




Rpr CDS • 

»^ tun 1 


MOVB 


»CURLTNCR4)>R3 


jGENCRATE LINE t 




042702 








BIC 


»17776a»R2 




003 166 




174662 






BIS 


R2,ASTAT 


|aD0 in LINE • 


003172 




004760 ' 






INC 


CRCR4(R4) 


•SEE NOTE 1 IN FRONT OF LISTING 


SS3176' 


104434 


0S33SS* 






ERRORSj 


' BEGin 


;CRC ERROR 












;•»•••»»••••»«••♦••••••♦•••»•*••»•»♦•••••••»«»•••»•»•*•••»•*♦•»• 


003202' 


005767 


001552 






TST 


CRCR4 




803206' 


001402 








BEO 


It 




0032 1 ' 


005004 








CLR 


R4 




003212' 


000402 








BR 


21 




•032 1 4 




000002 




1S> 


MOV 


t2>R4 




003220' 




004760 




2$: 


DEC 


CRCR4(R4) 




003224 ' 


0001 67 


177654 






JMP 


RRET 


;BAD RETURN 










;pEAD TIME OUT 


ROUTINE 






01 2764 


1 mil 


aOkA4\ La' 

WW* w 


RDTO: 


MOV 


II77777,ABORT(R4)>TELL INT ROUTINES TO GIVE UP 


C03236 


005 264 








INC 


RCVT0{R4) 


;COUHT ANOTHER RElRV 






004 


74722 
14 22 




CMP 


RCVT0tR4),ERRLVL jENOUGH TRYST 


003250 


00^043 








BNE 


41 


;BR IF NO 


B03252 ' 


01 7467 


004602' 


174572 




MOV 


0DVASAV(R4)>ACSR;G£T REC STATUS 


003260' 


042774 


177771 


004602' 




BIC 


«177771,»DVASAV(R4) ;KILL ALL BUT DTR 


003266' 


D16467 


004602' 


174554 




MOV 


DVASAV(R4),CSRA 


;PUT ADDR IN FOR ERR CALL 


003274' 


016401 


004644' 






MOV 


CURLIN(R4)«R1 


;GET ADDR OF CUR LINE BYTE 


003300' 


111102 








MOVB 


(R1).R2 


;GET VALUE OF PHY LINE • 


003302' 


042702 


177760 






BIC 


tl77760>R2 


;THRON OTHER BITS AWAY 


003306' 


062702 


001000 






ADD 


il000,R3 


fINDICATE REC TIMEOUT ERR 


003312' 


01 0267 


174536 






MOV 


R2,ASTAT 


;SET OP FOR ER CALL 


003316' 


005264 


004764' 






INC 


RCTOR4(R4) 


jSEE NOTE 1 IN FRONT OF LISTING 
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NLAS .PI 1 








1 126 








1 127 


003322' 


104404 


000000' 


1 128 








1129 


003326' 


005767 


001432 


1 1 30 


003332' 


001402 




1131 


•03331' 


005004 




1132 


003336' 


000402 




1133 


O0334f ' 


H12704 


000002 


1 134 


003344' 


005364 


004764' 


1135 


•03350' 


005064 


004740' 


1 1 36 


003354' 


000174 


004664' 


1137 








1138 


303 360' 


016401 


004644' 


1 I 39 


••03364' 


1 05361 


000020 


1 1 40 








1 1 41 


003370' 


005364 


004660' 


1 142 


003374' 


000767 




1143 








11 44 








1 1 45 








1146 








1147 








1 148 








1 1 49 








1 150 








1151 








1152 


003376' 


012664 


004714* 


1153 


•03402' 


005064 


004720' 


1154 


903406' 


016401 


004606' 


1155 


093412' 


062701 


000004 


1156 


•03416' 


B127U 


003546* 


1157 


•93422* 


060421 




1158 


•03434' 


116711 


174362 


1 159 


•03430' 


005064 


004640' 


1 160 


003434' 


012764 


000005 


1161 


•03442' 


016403 


004602' 


1 162 


•03446' 


005764 


004734' 


1 163 


•03452' 


001417 




1164 


003454' 


100003 




1 165 


•03456' 


012764 


177777 


13 66 


•03464' 


012763 


000100 


1167 


•03472' 


012763 


000177 


1 168 


•03500' 


016402 


004714* 


1169 


•03504* 


062702 


000004 


1170 


003510' 


010207 




1171 








1172 








1173 


•03512' 


012700 


003772' 


1174 


•03516' 


016401 


004710' 


1175 


•03522* 


012702 


000Ct04 


1 176 


003526' 


012763 


00010^ 


1177 


•03534' 


012763 


000177 


1 178 


•03542' 


0B0167 


000456 


1179 








1180 








1191 


0<)3S46' 


000405 





000004 

000006 
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ERRORS 1 


BEGIN 


JREC TIMED OUT 




TST 


RCT0R4 






BEO 


IS 






CLR 


R4 






BR 


2$ 




1$: 


MOV 


12, R4 




2s: 


DEC 


RCTOR4(R4) 






CLR 


RCVT0(R4) 


;RESCT RETRY COUNT 


3$: 


JMP 


0RECRTN(R4) 


; ERROR RTN 


4t: 


MOV 


CURLIH(R4),Rl 


;GET ADDR OF CUR LINE 




DECB 


30(R1) 


;DEC ERROR COUNT TO CORRECT FOR 








:INSUING INC 




DEC 


LO0P(R4) 


{CORRECT FOR LATER CALLING THIS 




BP 


3t 


;RETURN 


; SUBROUTINE TO 


TRANSMIT DATA 




;CALLf:o 


WITH A 


JSR PCTMT 





.•AFTER SETTING LOCATIONS TXADRICRI). TXADR2CR4), TXCNT J ( H4 ) , TXCNT2 { R4 ) , 
;VCTSAV(R4). DVASAV(R4)> SUBROUTINE CTS MUST BE CALLED FIRST. 
; RETURNS ON ERROR, RETURNS 3 BYTES PAST NORMAL RETURN 
;IF NO ERROR 

TMT» 



MOV 


(SP)t»TMTRET(R4) 


;SAVE RTN ADDRESS 


CLR 


TMTD0N(R4) 


{INITIALIZE FLAG 


MOV 


VCTSAV(R4),R1 


;GET REC VECTOR ADDRESS 


ADD 


14, Rl 


;HAKE IT TMT VECTOR 


MOV 


tTBTIWT, CRD 


{MOVE IN INT ROUTINE ADDRESS 


ADD 


R4,(R1)* 


{CORRECT FOR WHICH LIME 


MOVB 


BRt,(Rl) 


{MUV IN PRIORITY LEVEL 


CLR 


AB0RT(R4) 


{CLEAR TIME OUT ABORT FLAG 


MOV 


l5,TSyNCTCR4) 


{SEND FIVE SYN CHARACTERS 


MOV 


DVASAV(R4),R3 


{GET DEVICE ADDRESS 


TST 


FDFLA(;(R4) 


I ARE HE FULL DUPLEX? 


BEU 


3S 


{BR IF HOT, ELSE 


BPL 


IS 


{SKIP IF MASTER 


HOV 


1177777, T8YNCT(R4) ;MAKE TMT WAIT FOR A REC 


MOV 


f 100,4(R3) 


{SET TMT INT ENABLE 


MOV 


1177, 6(R3) 


{SEND A KILL CHAR 


MOV 


THTRET(R4),R3 


{GET BAD RET ADDR 


ADD 


114, R2 


{MAKE IT THE FULL DUPLEX RETURN 


MOV 


R2,R7 


{AND RETURN 


MOV 


•TXTO,R0 


{TIME OUT RETURN ADDR 


MOV 


IHTTIM(R4),F1 


{HOW LONG TO WAIT 


HOV 


14, P2 


{SHOW ITS TRANSMITTER 


MOV 


1100, 4(R3) 


{SET TMT INT ENABLE 


MOV 


•177,6(P3] 


{SEND A FILL CHAR 


JMP 


TIMKEP 


{EXIT TO TIMKEP AND WAIT 



J TMT INTEPRUPT ROUTINE 
TWTINT; BR IS 
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SEQ 015S 



1182 


B03550' 


01 0446 








R4i •( SP) 




•SAVE R4 


1163 


003552' 


010346 






Mnu 


P3 # * ( ) 




■SAVE R3 


1184 


»03554' 


01 2704 


000002 




MOW 


• 2< R4 




';Sn TO LINE 1 


1 1 85 


003560' 


000403 














1 1 86 


•03562' 


010446 




■ 


HrtU 


P4 # • ( sP J 




■SAVE R4 


1187 


■•03564' 


010346 








R3#-(SP) 




■SAVE R3 


1 1 ee 


l»03566' 


005004 






CLR 






•SET TO LINE 


1189 


•03570' 


005764 


00464^* 


2fi S 








•GIVE UP7 


1190 


•03574' 


1 00417 






BMI 






•BR It KES 


1191 


•03576' 


016403 


004602* 




HOV 


DVASAV ( R4 ) 1 


P3 


jGET DVA 


1 1 92 


•03602' 


005764 


004700* 






i AW" I I I 1 




;FIRST BUFFER TMT*EU? 


1 1 93 


003606* 


001015 






BHE 






;BP IF NOT 


1191 


00361k)' 


005764 


004704* 






TXCHT2 ( R4 ) 




SSECOND BUFFER TMT*ED7 


1 1 95 


•03614' 


001 434 






BED 






•BR IF YES 


1 1 96 


•03616' 


1 17463 


004674* 000006 




HOVB 


0TXADR2 ( R4 ) 


,6(R3) »SEND NEXT BYTE 


1197 


•03624' 


005264 


004674* 




INC 


TY knO'i t D A ^ 




;HOV ADDRESS POINTER 


1 1 98 


00 3630' 


005 364 


004 704 ' 




DEC 


T UTn 1 OA\ 

I Av, It 1 / I > 




.-COUNT IT 


1 1 99 


•03634' 


01 2603 




TIEXITf 


HOV 






; RESTORE R3 


1200 


•03636' 


01 2604 






HOV 


( R6 } ♦ f H 4 




.-RESTORE R4 


1201 


003640' 


000002 






RTI 






; RETURN 


1 202 


003642' 


005764 


004724 ' 


ETBUF J 


TST 


TSYNCT ( P4 ) 




;SENT ENOUGH FILL CHAPS? 


12t)3 


003646' 


001 407 






BEO 


21 




;BR IF YES 


1 204 
















J IF NEGITIVE 


1 21»5 


1^03650' 


1 00402 






BH2 






;SENO TILL PECINT CLEARS TSYNCT 


1206 


003652* 


005364 


004724' 




DEC 


T81fNCT(R4) 




jELSE COUNT IT 


12^^7 


003656' 


1 12763 


000177 000006 


IS: 


HOVB 


1177, 6(R3) 




;SEND IF YES 


1208 


003664' 


000763 






BR 


IIEXIT 




;AND LEAVE 


1209 


•0366b' 


1 17463 


004670' 000006 


2(1 


HOVB 


• TXADRl(i<4} 


.*(BJ) jSEND NEXT BYTE 


121^ 


C03674* 


005264 


004670' 




INC 


TXADBl (R4) 




;HOVE ADDRESS POINTER 


1211 


003700* 


005364 


004700* 




DEC 


TXCNIi CB4) 




;COUNT IT 


1212 


003704* 


000753 






BR 


IIEXIT 




;AND LEAVE 



1 21 3 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1 221 
1 222 
1223 
1224 
1225 
1226 
1277 
1228 
1229 
1230 
1231 
1232 
I 233 
1234 
1735 
1236 
1237 



003706' 
033714' 
•03716' 
•03722' 
•03730' 
003732' 
W03734' 

003736' 



•03746' 

003754' 
•03756' 
003762' 
003765' 



047763 
012603 
(105064 
062764 
005704 
001004 
e12604 

000004 

012604 

000004 

005004 
000174 
012704 
000174 



;ALL CHAR'S HAVE BEEN THT'ED 



005044' 
000002 



000004 
004714' 



003754' 000000* 



003762' 000900' 



004714* 

000002 

004714' 



BIC 


1100, 4(R3) 


;KILL THT'ER 








HOV 


(R6)«,R3 


jRESTORE R3 








CLR 


RETTAB'»4(R4> 


;KILL IMPENDING 


TIMEOUT 






ADD 


I2,THTRET(R4) 


;MAKE IT A GOOD 


RETURN 






TST 


R4 


;LINE OR 1 








BNE 


It 


;BR IF LINE 1 








HOV 


(R6)«,R4 


.•RESTORE R4 








PIROil 


r2t> BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


2S 


HOV 


CR6)«,R4 


; RESTORE R4 








PIRQti 


r3t, BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


3S 


CLR 


R4 


;SET TO LINF 








JHP 


•THTRET(R4) 


{RETURN 








HOV 


i2,R4 


JSET TO LINE 1 








JHP 


•THTRET(R4) 


I RETURN 









•03772' 912764 177777 004640' 



JROUTINE IF TRANSMIT TIMES OUT 
TXTOJ HOV f 177777, AB0RTtR4) 



;TELL INT ROUTINES TO GIVE UP 
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174034 
174033 
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NLAA .P) 1 






1238 


004000' 


016467 


004602* 


1 739 


004006' 


062767 


000004 


1 740 


1104014' 


017767 


174030 


1241 


•04022' 


005077 


174022 


1212 


•04026' 


016401 


004644' 


1243 


004032' 


1 11 102 




1244 


•04034' 


042702 


177760 


1245 


004040' 


062702 


005000 


1246 


004044* 


010267 


174004 


1247 


•04050' 


005264 


004770* 


1248 








1249 


•04054' 


104404 


000000* 


1 250 










L'aiaea' 


3357b7 




1252 


004064' 


001402 




1253 


004066' 


005004 




1254 


•04070' 


000402 




1 255 


00407 2' 


012704 


000002 


1256 


•04076' 


005364 


004770' 


1 257 


•04102' 


000174 


•04714* 


1 258 








1259 








1260 








1261 








1262 








1263 








1264 








1765 


•04106' 


012664 


004730* 


1266 


•04112' 


016401 


004606* 


1267 


•04116* 


012711 


004154* 


1268 


004122' 


060421 




1269 


004124* 


1 1671 1 


173662 


1270 


•04130' 


032774 


020000 


1271 


004136' 


001402 




1272 


i»04140* 


016407 


004730' 


1773 


004144* 


012774 


000006 


1274 


•04152' 






1275 


•04152' 


104400 




1 276 








1277 


•04154* 


000403 




1278 








1779 


•04156' 


000004 


004172' 


1280 








1281 


•04164' 






1282 








12R3 


•04164' 


000004 


004200' 


1284 








1285 


•04172' 


012704 


000002 


1286 


804176' 


000401 




1287 


004200' 


005004 




1288 


004202' 


032774 


020000 


1289 


•04210* 


001755 




1290 


•04212' 


042774 


000040 


1291 


•04220' 


01 6407 


004730* 


1 292 









MOV 

ADD 

HOV 

CLR 

MOV 

HOVB 

BIC 

ADD 

HOV 

INC 



DVASAV(R4),CSRA 
•4,CSPA 
8CSRA,ACSR 
•CSRA 

CURLIN(P4),R1 
(R1),R2 
1177760, R2 
•5000, R2 
R2, ASTAT 
TXTOP4(R4) 



:CET ADDP OF STATUS 
;MAKE IT THT CSR 
JSAVC STATUS 

;KILL TRANSMISSION AND INT 

jGET ADDP OF CUR LINE 

;GET VALUE 

;LEAVE ONLY LINE ( 

; INDICATE THT TIMEOUT 

;SET UP FOR ERROR CALL 

jSEE NOTE 1 IN FRONT OF LISTING 



ERRORS, BEGIN 



;TMT TIMEOUT 



It: 
2tl 



TST 

BED 

CLR 

BR 

HOV 

DEC 

JHP 



TXTOPs 
1« 
R4 
2t 

13, R4 

TXTOR4CR4) 
8THTRET(R4) 



jBAD RETURN 



;SUB GETS CLEAR TO SEND FOR LINE IN DVASAV(R4) AND VCTSAV(R4) 



CTS1 HOV 
MOV 
HOV 
ADD 
HOVB 
BIT 
BEQ 
HOV 

RTSSETl MOV 
NULL! 

EXITS 
;INT ROUTINE 
CTSINT: BR 



(R6)+,CTSRET(R4) ;SAVE RET ADDRESS 

VCTSAV(P4),R1 ;GET VECTOR ADDR 
#CTSInT,(R1) ;M0V In INT ROUTINE ADDR 

R4,(Rl)+ ;3H0HS WHICH LINF 

BR1,(R1) jGET BRl LEVEL 

120000, »DVASAV(R4) jIS CLEAR TO SEND UP? 
RTSSET iBR IF NOT 

CTSRET{P4) , R7 jRETUPN 
I6,»DVASAV(R4) ;SET REQ TO SEND 



;EXIT TO MONITOR. MODULE WAIT FOF INTERUPT. 



PIROt, 



It 

2t, BEGIN 



jDIFFERENT PIRQ*5 

; RTI AND QUEUE UP TO CONTINUE AT 2$ 



PIROt, 3$, BEGIN 



; RTI AND QUEUE UP TO CONTINUE AT 3S 



3tl 
4SI 



MOV 12, R4 ;SeT UP FOR LINE 1 

BR 4S 

CLR R4 jSET UP FOR LINE 

BIT 130000, aUVASAV(R4) )IS CLEAR TO SEND SET? 

BEO RTSSET ;G0 TRY AGAIN IF NOT 

BIC I40,«OVAS»V(R4) jDISABLE DATA SFT CHG INT'S 

MOV CTSRET(P4),P7 jRETURN 
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SEQ 0153 



1294 
1295 
1296 
1297 
IJPe 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1 320 
1 321 
1322 
1323 
1324 
1325 
1326 
1327 
1 328 
1 329 
1330 
1331 
1332 
1 333 
1334 
1335 
1 336 
1337 
1 338 
1339 
1340 
1 341 
1342 
1343 
1 344 
1 345 
1346 
1347 
1348 
1349 



V04224' 060402 

004226' 010162 

•04232' 067762 

904240' 010462 005050' 

•04244' 010062 005040' 



005030' 

000000G 005030' 



004250' 022767 000002 000360 
004256' 001410 
004260' 005704 
00426?' 901402 
004264' 005004 
004266' 000402 
004270' 012704 000002 
004274' 000167 174350 



004300' 012702 005040' 
004304' 005722 
004306' 001026 
004310' 020227 005050' 
004314' 001373 
004316' 005767 000424 
(•04322* 031492 
004324' 000167 000064 

004330' 005767 000419 

1104336' 104400 



00434^' 012767 
004346' 194407 
004352' 194407 
004356' 005067 
004362' 090746 

904364' 095742 
f04366' 027762 
004374' 003002 
0^4376' 005722 
004400' 000743 



000001 090376 
000000' 
000009' 
000362 



000000G 177770 



;ALL POUTINES COME HERE WHILE WAITING fOP I/O 
IROUTIME EITHER KICKS OFF SECOND LINE, NOTIFYS 
SROUTINES or TIMEOUTS, OK JUST DOES BREAKS. 
;I/0 ROUTINES THAT FIMISK UP BEFORE TIMEOUT VALUE 
»HUST CLEAR LOCATION RETTAB(B4) +9 IF RECEIVER OB t4 
;IF TMT. 

JCALLED WITH A JMP TO TIMKEP AFTER LOADING 
; R6 M WHERE TO RETURN IF TifE OUT 
; Rl ■ HOW LONG TO WAIT (IN SECONDS) 

: R2 « IF ITS A REC TTHEING OR 4 IF ITS A TMT HAIT 
> R4 » FOR ACTIVE LINE 0, 2 FOR ACTIVE LINE 1 



;FIGOPE OUT WHICH TABLE ENtrK 
fSTORE HOW LONG TO WAIT 
) ;ADD PRESENT TIME 

;SAVE WHICH ACTIVE LINE 
;WHERE TO RET TO, PLUS 
;IF THIS ENTRY IN TABLE IS 
';0 THEN NO TIMEOUT WILL 
fOCCUR FOR THIS ENTRY SET 
;ARE 2 LINES GOING? 
;BR IF YES 
;ARE WE LINE 0? 
; BR ir YES 
; IF NO HAKE IT 

J WE HERE SO NOW 00 l 
;G0 DO OTHER LINE 



;GET ADDR OF TIME STATUSES 
;ANY WAIT GOING ON? 
>BR IF YES 

;ARE HC DONE LOOKING 
;BR BACK IF NO 
{TIME FOR END OF PASS 
;BR IF NO 

;G0 REPORT END OF PASS 

;ARE UE ALREADY IN A BREAK? 
;3B IF SO 

jEXiT TO MONITOR. MODULE WAIT FOR INTERUPT. 

;SHOw WERE DOING BREAK 
;TEMPORARY RETURN TO MONITOR.... 
jTHEN CONTINUE AT NEXT INSTRUCTION. 
;SHOW WERE BACK 



jHOVE R2 BACK 

J IS TIME UP? 

;BR IF YES 

;BUHP R2 BACK AGAIN 

J GO CHECK OTHERS 



TIHKEpj 


ADD 


R4,r3 




NOV 


R1,TIMTABCR2) 




ADD 


• TIME,IIMTAB(I 










MOV 


R0,RETTAB(R2) 




CMP 


t2,LIMACT 




BEO 


TIMCHK 




TST 


R4 




BEO 


IS 




CLR 


R4 








18! 


HOV 


12, R4 


2(1 

; 


JMP 


CEIMXT 


; 

TIHCHKI 


MOV 


«RETT«B,R2 


IS! 


TST 


f R2) + 




BNE 


4S 


lit! 


CMP 


R2,IRETTA8'»10 




BNE 


IS 




TST 


PASTIM 




BEQ 


2S 




JHP 


EPASS 


2t! 


TST 


BRKFLG 




BEQ 


3* 




EXIT$ 




! 

3$: 


MOV 


tl, BRKFLG 




BREAKS. 


rBEGIN 




BREAKS, 


.BEGIN 




CLR 


BRKFLG 




BR 


TIHCHK 


4t: 


TST 


-(R2) 




CMP 


•TIMe,-10(R2) 




BGT 


5S 




TST 


CR2)* 




BR 


lis 
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1 35H 


















1351 


Ba4402' 


016204 


000019 




5S! 


MOV 


10(R2),R4 


;SET R4 CORRECTLY FOR WHICH LINE 


1 352 


004406' 


01 1203 








MOV 


(R2),R3 


;SAVE RETURN 


1 353 


004410' 


005012 








CLR 


(R2) 


;CLE»B THIS ENTRY 


1 354 


004412' 


019397 








HOV 


R3,R7 


;JMP TO TIME OUT ROUTINE 


1 355 
1356 










J 








1 357 


















1358 










J EPASS 


DOES END OF PASS CALL , 


AND PRINTS ERR SUMMARY 


1359 










J IF LOCATION REPORT IS NOT 




1369 










; 








1361 


00441 4' 


905767 


173544 




EPASS! 


TST 


REPORT 


;D0 ERR SUM OR NOT 


1 362 


004429' 


001461 








BEO 


5S 


;BR IF NO 


1363 


004422' 


005267 


000146 






INC 


MSGCNT 


;COUNT A PASS 


1 364 


V04426' 


026767 


000142 


173539 




CMP 


MSGCNT, REPORT 


;TIHE FOR A MSG? 


1 365 


004434' 


091053 








BNE 


5S 


jIF NOT EVEN 8, SKIP MSG 


1366 


004436' 


005067 


000132 






CLR 


MSGCNT 




1367 


004442' 


•12700 


000212' 






MOV 


«PHYTAB,R0 


;FIND WHICH LINES ARE RUNNING 


1368 


004446' 


012701 


011329* 






MOV 


«SUM1«4,R1 


;POINTS TO MSG 


1369 


•04452' 


195710 






ISt 


T5TB 


(R0) 


lis LINE IN USE? 


1370 


•04454' 


109403 








BMI 


3S 


;BR ir YES 


1371 


9044S6' 


012711 


054130 






KOV 


t54t3^,(Rn 


}PUT XX IN » OF ERRS 


1372 


•04462' 


000427 








BR 


4S 




1373 


004464' 


1 16002 


000040 




2S! 


HOVB 


32.(R0),R2 


jGET ( OF ERRS 


1374 


•04470' 


1 05060 


000040 






CLRB 


32. (R0) 


(RESET ERR COUNT 


1375 


•04474' 


022702 


000077 






CMP 


177, R2 


;ANY GOOD MSGS 


1376 


004500' 


002416 








BLT 


3t 


;BR IF NO 


1377 


004502' 


010303 








MOV 


R2,P3 


jPUT IN MSG 


1378 


•04504' 


042703 


177770 






BIC 


1177770, R3 


jLEAVE ONLY LOW DIGIT 


1379 


004519' 


062703 


000060 






ADD 


(60, R3 jHAKE 


IT ASCII 


1389 


•04514' 


110361 


•00001 






HOVB 


R3,i(Ri) 


;STORE IT AWAY 


1381 


•04520' 


•06202 








ASR 


R2 


,GET NEXT DIGIT 


1382 


•04522' 


006202 








ASR 


R3 




1383 


i>04534' 


096203 








ASR 


R2 




1384 


004526' 


062702 


000060 






ADD 


(60, R2 


jMAKE IT ASCII 


1385 


004532' 


1 10211 








HOVB 


R2,(R1) >PUT 


IT IN MSG 


1 386 


Ba4534' 


>00482 








BR 


4* 




1387 


•04536' 


012711 


042102 




3S( 


HOV 


(43103, (Rl) 


;PUT IN AN 'BD' FOR BAD 


1388 


004542' 


•05200 






4$l 


INC 


R0 


jBUMP LINE POINTER 


1389 


004544* 


062701 


000010 






ADD 


(10, Rl 


{POINT TO NXT MSG 


1399 


•04559' 


020027 


000232' 






CMP 


R0,(PHYTAB+20 


{DONE 


1391 


004554* 


001336 








BNE 


IS 


|G0 DO MORE 


1392 


•04556* 


104411 


004579' 


000009' 




HSGNS, 


MSUM,BeCIN 


{ASCII MESSAGE CALL WITH COMMON HEADER 


1393 


















1394 


















1395 


•04564' 








5E! 








1396 


•04564' 


1 94492 


000000' 






ENDPS8 


(BEGIN 


{SIGNAL END OF PASS. CONTINUE AT HESTRT 


1397 


















1398 


•04570' 


•1 1139* 






MSUMI 


SUM 






1399 


•04572' 


1 77777 








-1 






1400 


















1491 


•04574* 


990000 






MSGCNTI 







{COUNTS END PASSES FOR MESSAGE CALL 


1402 


004576* 


•90000 






MASK! 







{USFD FOP BIC'ING IN LOOPS 


1403 


•04600' 


000009 






NXTLINI 







{AOR OF NEXT LIN 


1404 


004602* 


000000 






DVASAVS 


9 




{HOLDS OVA FOR ACTIVE L«9 


1405 


•04604* 


009909 








9 




•HOLDS OVA FOR ACTIVE \,%\ 
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1406 


0046B6' 


090000 


VCTSAVI 





HOLDS VCT FOR ACTIVE Li0 


1 4k)7 


004610' 


000000 




IHOLDS VECTOR FOR ACTIVE L«l 


1 406 


004612' 


0<»5060' 


AMSGBFl 


MS(;bF0 


ADDRESS OF MSG BUFFER t» 


1409 


004614' 


O07IB0' 




HSCBFl 


ADDRESS OF MSG BUFFER 1 


1 4in 


004616' 


090000 


HECADRt 





CURRENT REC WORD POINTER 


1411 


904620' 


^00000 







CURRENT REC WORD POINTER 1 


1412 


004622' 


000000 


BECCNTJ 





REC BYTE COUNT FOR 


1413 


904624' 


000000 







PEC BYTE COUNT FOB 1 


1414 


004626 ' 


000000 


PECTIMI 





TEMP HOLDS TIME OUT VALUE FOP A REC 


1415 


004630' 


000000 




iSAME BUT FOR LINE 1 


1416 


004632' 


000000 


SYNCNTI 





COUNTS HOW MANY SYN CHARACTERS REC 


1417 


004634' 


01*0000 







SHOULD WAIT FOR. 


1418 


004636' 


000000 


LINACTJ 





HOLD THE NUMBER OF LINES RUNNING, 0-2 


1419 


004640' 


000000 


ABORTi 





ABORT FLAG FOR L»0 


142^ 


004642' 


000000 







ABORT FLAG FOR Lll 


1421 


004644' 


000000 


CURLIN! 





POINTS TO STATUS BYTE FOR CURRENT LtC 


1 422 


004646' 


000000 







POINTS TO STATUS BYTE FOR CURRENT Hi 


1423 


004650* 


00265»' 


PECDi 


RECOH 


WHERE TO PIRQ AFTER REC DONE 


1424 


004652' 


002660' 




RECDN*4 




1425 


004654' 


000000 


EPRWDi 





HOLDS ERR WORDS TEMPORARILY 


1426 


004656' 


000000 







HOLDS ERR WORDS TEMPORARILY 


1427 


004660* 


000000 


LOOP: 





HOLDS LOOP COUNT FOR LINE t 


1 429 


004662' 


030000 







HOLDS LOOP COUNT FOR LINE • 1 


1 429 


E04664* 


030000 


RECRTNj 





■HOLDS RETURN ADDR FOR LINE 10 


1 43>9 


004666' 


000000 







HOLDS RETURN ADDR FOR LINE 11 


1431 


004670* 


000000 


TXADRl 1 





HOLDS 1ST ADDR TO TMT FROM, LINE 


1432 


(»04672* 


000000 







SANK FOR LINE 1 


143 3 


004674' 


000000 


TXADR2t 





HOLDS 2ND AODR TO TMT FROM, LINE 


1434 


004676* 


000000 







SAME FOR LINE 1 


1 435 


004700* 


000000 


TXCNTU 





HOLDS 1ST TMT COUNT FOP LINE 


1 436 


004702* 


000000 




(SAME FOR LINE 1 


1437 


004704* 


000000 


TXCNT2I 


jHOLDS 2ND TMT COUNT FOR LINE 


1438 


004706* 


000000 




;SAMC FOR LINE 1 


1 439 


084710* 


000000 


TMTTIMl 


jHOLDS TIME OUT TIME FOR LINE 


144i» 


004712* 


000000 




;SAHE FOR LINE 1 


1 441 


004714* 


000000 


TMTPETl 





HOLDS RTN ADDR FOB TMT. LINE 


1442 


004716* 


000000 







SAME FOR LINE 1 


1443 


004720' 


000000 


THTDON 1 


jFLAC FOR WHEN A TMT IS DONE 


1 444 


004722* 


000000 




;SAHE FOR OTHER LINE 


1445 


004724* 


000000 


TSYNCTI 


;HOLDS » OF SYN CHAP TO SEND, LINK 


1 446 


004726* 


000000 




(SAHE FOR LINE 1 


1447 


l?04730* 


000000 


CTSRETl 


jHOLDS RETURN ADDR FOR CTS 


1 448 


004732* 


000000 




;SAHE FOR LINE 1 


1449 


004734' 


000000 


FDFLAGt 





ir HALF DUPLEX, 1 IF FULL 


1 45*' 


004736* 


000000 









1451 


004740* 


000000 


RCVTOl 


jcouhts pec time out RETRYS 


1 452 


004742* 


000000 









1 453 


004744* 


000000 


BRKFLGt 


;IS A ONE DURING BREAKS 


1 454 


004746* 


000000 


pastih: 


jHAS A 1 WHEN ITS TIME FQP END OF PASS 


1 455 


004750' 


000000 


DR0PR4 1 


(EXIT FLAGS 




1456 


004752* 


e00000 









1457 


004754* 


000000 


DTERR4t 







1458 


004756' 


000000 









1459 


0«476vi' 


000000 


CRCR4J 







1460 


004762' 


000000 









1461 


004764' 


000000 


PCT0B4J 








NLA» DEC/Xn SYSTEM EXERCISER MODULE MACYt 1 27(732) 20-MAY-76 12126 PAGE 30 StU C'.bb 



NLAA.Pl 1 
















1 462 


004766* 


000030 















1463 


004770* 


000000 






TXT0R4I 









1 464 


004772* 


000000 















1465 


004774* 


000000 






FDBKR4I 









1 466 


004776* 


000000 















1 467 


005000' 


000000 






CHKR4I 









1468 


005002' 


000000 















1 469 


















1 470 










; 








1471 


















1472 










;R1 HAS 


ADDR OR 


VECTOR 




1473 










;r0 has 


LINE • 


IN LOW BITS, RETURNS WITH ADDR Op VECTOR IN Rl 


1474 


e05004' 








getadp: 








14/5 


005004' 


010046 








NOV 


H0,-IRO) 


J SAVE Bt» 


1476 


005006' 


042700 


177760 






BIC 


1177760, 


R0 ;SAVE ONLY LINE 1 


1 477 


005012' 


001404 






111 


BEQ 


2t 


;DONE 


1478 


005014' 


062701 


000010 






ADD 


tl0,Rl 


;BUMP TO NEXT LINE 


1479 


005020' 


005 300 








DEC 


R0 


;ADDCD ENOUGH TIMES? 


14tj0 


005022* 


000773 








BR 


IS 


;G0 BACK 


1481 


005024' 


012600 






2tl 


MOV 


(R6)+,R0 


{RESTORE R0 


1482 


005026' 


000207 








PTS 


PC 


;RETUPN WITH DVA IN Rl 


1483 










J 








1484 


















14 05 


005030* 


000000 






timtabi 







;WHEH TO TIME OUT FOR REC, LINF 


1486 


005032* 


000000 













;WHEN TO TIME OUT FOR RECLINE 1 


1487 


005034* 


000000 













;WHEN TO TIME OUT FOR TXT, LINE 


1488 


9050J6' 


000000 













jWHEN TO TIME OUT FO TXT, LINE 1 


1489 


005040* 


000000 






RETTABt 







jWHERE TO RETURN FOR REC LINE 


1490 


005042' 


000000 













;WHERE TO RETURN FOR PEC LINE 1 


1491 


005044* 


000000 













jWHERE TO RETURN FOR TXT LINE 


1492 


005046* 


000000 













;WHEBE TO RETURN FOB TXT LINE 1 


1493 


















1494 


005050' 


000000 






R4TABI 







JHOLD H4 FOR RETURNS 


1495 


035052* 


000000 















1496 


005054' 


000000 















1497 


•05056' 


000000 















1498 


















1499 


















1500 


005060* 


001010 






MSGBF0I 


.BLKW 


520. 


;rEC BUFFER FOr LINE 


1501 


007100' 


001010 






HSGBFl 1 


.BLKW 


530. 


;REC BUFFER FOR LINE 1 


1502 


011120* 


177777 






FILLJ 


177777 




;4 CHARACTERS OF FILLFR BYTES 


1503 


011122' 


177777 








177777 






1504 


011124' 


011416* 






ADROPt 


HDROP 






1505 


011126' 


177777 








-1 






1506 










.EVEN 








1507 


011 130' 


005015 


044523 


041516 


SUMI 


.ASCII 


<15><1 2> 


'SINCE LAST MSG PER llNh, IN OCTAL '<15»<12> 


1508 


011136* 


020105 


040514 


052123 










1509 


011144* 


046440 


043523 


050>)40 










1510 


011152* 


051105 


046040 


047111 










1511 


011160* 


0261 05 


044440 


020116 










1512 


011166* 


041517 


040524 


0201 14 










1513 


011174* 


005015 














1514 


01 1 17b' 


r445t4 


042516 


02144«i 




.ASCII 


'LINF » 


FRRS*<15><12> 


1515 


011204' 


920040 


051105 


051522 










1516 


011212' 


005015 














151? 


01 1214' 


030060 


026455 


01006V' 


St'Mi : 


.ASCII 


•00— (!iij'<l5><l2> 
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1518 


01 1 222 * 


00501 5 














1519 


•11224' 


030460 


026455 


10060 




ASCII 


01 " 




1520 


011232' 


00501 5 










1521 


«1 1234' 


031060 


026455 


030060 




•ASCII 


02* 


-Ci0'<t5><l2> 


1522 


01 1 242 * 


005015 










1523 


91 1244* 


031460 


0264S5 


03kti46«* 




. A SC 1 1 


03* 




1524 


01 1 252' 


8<!501 5 












1525 


ei 1 254' 


032060 


026455 


030k)6ki 




•ASCII 


04* 




1526 


911262' 


005815 












1527 


01 1264' 


032460 


026455 


030060 




•ASCII 


05* 




1528 


01 1 272 * 


005015 














1529 


01 1274' 


033060 


026455 


030060 




•ASCII 


06- 




1530 


01 1 302* 


005015 












1531 


01 i 304' 


033460 


026455 


030060 




• 


07- 




15 32 


011312' 


005015 














1533 


011 314* 


030061 


026455 


030060 




ASCI I 


10- 




1534 


01 1322* 


005015 














1535 


01 1 324' 


030461 


02b455 


030060 




• A ClI 


•11- 
11- 




15 36 


01 1 332' 


00501 5 














1537 


01 1 334' 


031061 


026455 


030060 




- 

• A 


12- 




1538 


01 1342* 


00501 S 














15 39 


011341' 


031461 


026455 


030060 




* 


* 1 J- 
* 




1540 


011352' 


005015 














1541 


01 1354' 


032061 


026455 


030060 




•ASCII 


'14- 


-00'<15><12> 


1542 


01 1 362' 


00501 5 














1543 


01 1 364* 


032461 


026455 


030060 




* 




v(H0'< 1 5><| 2> 


1544 


01 1 372 * 


00501 5 














1 545 


01 1 374' 


033061 


026455 


030060 




• ASC I I 


•16- 


-a0*<i5><i2> 


1 546 


01 1 402 ' 


00501 5 














1547 


01 1404' 


033461 


026455 


030060 




• ASC 1 I 


•17- 


-00'<15><12> 


1548 


011412' 


005015 














15 49 
155(1 


011414' 


000 








• BYTE 







1551 




011416* 








• EVEN 






1557 










; 








1553 


011416' 


044514 


042516 


053440 


morop: 


•ASCIZ 


•LINF WAS DROPPED' 


1554 


01 1424' 


e5i50i 


042040 


047522 










1555 


01 1432' 


050120 


042105 


000 










1556 




000001 






.END 
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TABLE — 


USER ; 


SYMBOLS 










ABORT 


004640R 




889* 


914* 


939 


1H3» 


U59» 


1189 


1237* 


1419* 


ACSP 


900052R 




477» 


997» 


1117» 


1240> 










ADDP 


000006R 




456* 


651 


705 












ADROP 


011t24R 




790 


1504* 














AMSGBF 


004612R 




748 


817 


843 


1053 


1408* 








ASB 


000056R 




480t 
















ASTAT 


000054R 




4791 


1003» 


1004* 


1011* 


1012* 


1013* 


1058* 


1095» 


AWAS 


000060R 




4811 
















BDCNV a 




G 


11 
















BEGIN 


O00000R 




453* 


632 


633 


661 


662 


675 


727 


790 








1016 


1044 


1045 


1069 


1101 


1127 


1223 


1227 








1392 


1396 














BIT0 = 


000001 




4901 
















Bin = 


000002 




4901 
















BIT10 » 


00200'^ 




490* 
















BITU I 


004000 




490* 
















BIT12 » 


010000 




490* 
















BIT13 = 


020000 




490* 
















BIT14 = 


040000 




490* 
















BIT15 I 


1 00000 




490* 
















BIT2 = 


000004 




490* 
















8IT3 = 


080010 




490* 
















BIT4 « 


000020 




490* 
















BITS r 


000040 




490* 
















BIT6 = 


000100 




490* 
















BIT7 X 


000200 




490* 
















BIT8 « 


000400 




490* 
















BIT9 » 


001000 




4901 
















BPEIKts 


104407 




490* 


661 


662 


871 


872 


1044 


1045 


1340 


BPKELG 


•04744R 




694* 


731 


133S 


1339» 


1342* 


l«53t 






BPl 


00001 2R 




458* 


913 


1158 


1 369 










BP2 


30001 3R 




459* 
















CDATAS» 


1 04414 




490* 
















CER 


O03142R 




1075 


1077 


1093* 












CHKP4 


005000R 




690* 


69l» 


1043» 


1046 


1051* 


14671 






CKMSG > 




G 


490* 


1041 


1068 












CRCMSGi 


•••••• 


C 


490* 


1074 


1076 












CRCR4 


004760R 




682* 


683* 


1099* 


1103 


lloe* 


1459* 






CSRA 


000050R 




475* 


996» 


1119* 


1238* 


1239» 


1240 


1241* 




CTS 


004106R 




762 


806 


842 


1265* 










CTSINT 


0041S4R 




1267 


1 277* 














CTSPET 


e04730R 




1265* 


1272 


1291 


1447* 










CURMN 


004644R 




700* 


781 


830 


890 


998 


1061 


1087 


1096 


DATAER 


002576R 




1002 


1011* 














DATCKt« 


1 04417 




490* 
















OATERSi 


104405 




4901 
















DERP 


001264R 




765 


777* 














DEVSET* 


>••••• 


G 


491* 


634 














DONE 


000760R 




698 


719* 














DROP 


081 330R 




784 


788* 


833 


895 










DP0PR4 


00475dR 




678* 


679* 


789» 


791 


796» 


1455* 






DTEPP4 


0047S4R 




6'40* 


681* 


1014* 


1018 


1023> 


1457* 






DVASAV 


004602R 




707» 


766» 


771 


777* 


812* 


829* 


883* 


894» 








1038» 


1117 


1118* 


1119 


1161 


1191 


1238 


1270 


DVlOl 


G00014R 




460* 


630 














ECOUNT 


<tB0252R 




560* 


1 (JIIO* 















871 
1249 



872 
1279 



979 
1283 



991 
1340 



1006 
1341 



1421* 



918» 
1273* 



925* 
1288 



938 
1290* 



984* 
1404* 
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ENDPSt* 

ENDt a 

EPASS 

EPRCNT 

ERRLVL 

ERPNt s 

ERRORS! 

FPRTAB 

ERRWD 

EXIT* » 

FDBIfR4 

FDFLAG 

FDRCDN 

FDTO 

FERR 

FFRRt 

FILL 

FTBUF 

GCRR 

GETHDP 

GETNXT 

GETPAts 

GWBUF$« 

HERR 

IMIT 

JERP 

LINACT 

LNDONE 

LOOP 

LPCMT 

HAP22$= 

MASK 

MD z 

MDATAB 

HDMTAB 

MDROP 

HOOMAM 

MODSP 

MSG X 

HSGBtij 

HSGBFl 

MSGCNT 

HSGHEDs 

HSGNS = 

HSGSIZ* 

HSGSS X 

MSGS = 

MSUM 

NULL 

NXTLIN 

OACNV » 

OMEPEC 

ONETMT 

OPEN X 



104402 
10440) 
•04 414R 

V0003>9R 

•001 72R 

10441.3 

1 04404 

0002)2H 

0046^ tR 

104400 

004774R 

004734R 

Bai744R 

»02t06R 

0J1300R 

»ei302R 

lflll20R 

003642R 

001S40R 

"05004R 

000650R 

104413 

104412 

00tS46R 

000022R 

t02040R 

004636R 

*0t240R 

tf04660R 

W00166R 

1B44J5 

e04576R 

*••*•• GX 

B00272R 

0003 12R 

01 14t6R 

000000R 

000164R 

»••••• G 

II05060R 

»07t00R 

e04S74R 

•••»•> G 

10441 1 

«*••»« G 

104416 

104406 

0a457flR 

U04I52R 

0a4bPvlR 

>•»»•• G 

901 1 34R 

r01«S6R 

PO000n 



PASCNT B00026R 



4901* 

490t 

733 

4671 

499« 

4<)0I 

4901 

5411 

943* 

4901 

t>9B* 

738» 

846 

8<se 

754 
779 
761 
1193 
811 
706 
697» 
4901 
490f 
622 
4641 
847 
696* 
770» 
712* 
4971 
4901 
635* 
715 
5841 
6111 
1504 
4541 
465 
490t 
1408 
1409 
659» 
490t 
490i 
4901 
4901 
490* 
1392 
1274* 
695» 
11 
501 
502 
455 
481 
466« 



139b 
632 
1133 

783 

10ff6 

956 
736 
689* 
742» 

e6e« 

899f 
7801 
7811 

807 
12021 
829t 

709 
704 



6301 

856 

711» 

797 

767* 

768 

639 



1553i 

488t 
1054 
1500t 
1501* 
1363* 
757 
790 
749 



697 

7551 
8131 
461 
4901 



675 
1361* 


727 










632 


892 


1115 








1016 


1101 


1127 


1249 






96e« 

865 

870* 

841* 

879 


961» 
1006 
873 
916 
893 


997 
1275 
878* 
951 


1001 
1337 
146SI 
1162 


1012 
1449* 


1425* 


854 


1502* 










1474* 
774 


1323 










888* 

719 

826 

768 

634 


899 

770» 

884 

823» 

861 


1316 
834 


14181 
880* 


881 


1141* 


641 


645 


647* 


14021 






1364 
803 

1392 
758 


1366» 
849 

804 


1401* 
816 


844 


851 


1073 


699 


702* 


1403* 








786 












468 


469 


470 


471 


472 


473 
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TABLE 


USER SYMBOLS 




PASTIM 


004746R 


693* 


729» 


1331 


1454* 




PHYTA8 


0002 12R 


519* 


636 


643 


656 


695 


PIRQS X 


0000144 


490* 


979 


991 


1233 


1227 


POPSP I 


005776 


490* 










P0PSP2X 


022676 


490* 










PP 


e0103bR 


716 


736* 








PPFD 


001570R 


741 


639* 








PPFDl 


001610R 


8431 


882 








PPHDM 


■01 )72R 


744 


602* 


825 






PPHDH2 


00t520R 


816 


833* 


834 






PPHDS 


00I070R 


747* 


769 








PPHDS2 


001224R 


756 


767* 


787 






PRTY = 


000000 


490* 










PPTVPI 3 




*9fl* 










PPTYl = 


00004D 


490* 










PBTY2 X 


000100 


490* 










PPTYJ X 


0001 40 


490* 










PRTY4 X 


•00200 


458 


459 


490* 






PPTY5 X 


00024«) 


490* 










PBTY6 X 


•00300 


4901 










PPTY7 X 


^00340 


490* 










PS X 


177776 


490* 










PSH « 


1 77776 


4901 










PUSH s 


00574i> 


490* 










PUSH2 X 


024646 


490* 










PWPCNTx 


»••»»• G 


490* 


673 








QUCS X 


104401 


490* 










RCT0R4 


004764R 


6R4* 


685* 


1125» 


1129 


1134* 


RCVTO 


004740R 


713» 


10J9» 


1114* 


1115 


1 135* 


ROTO 


003230R 


900 


922 


11131 






REC 


0021 20R 


753 


821 


646 


909* 




RECADR 


004616R 


748* 


817» 


843* 


963» 


964* 


RECCNT 


004622R 


749* 


750» 


818< 


6l9» 


644* 


RECD 


004650R 


972 


1 423* 








RECDN 


002654R 


979 


1035* 


1423 


1434 




RECERR 


003156R 


1059 


1096* 








RECINT 


002230R 


911 


930* 








RECPTN 


004661R 


899* 


909» 


919 


1078» 


1080 


RECTIM 


004626R 


751» 


752» 


620* 


923 


1414* 


REPORT 


000164R 


494* 


954 


1056 


1063 


1083 


RERR 


002452R 


957 


962 


982* 






RESTRT 


0005 16R 


482 


660 


673* 






RETTAB 


BO504aR 


1040* 


1079* 


1217« 


1312* 


1326 


RPIRO 


003444R 


972« 


977* 








RRET 


0e3104R 


1031 


1079* 


1065 


1090 


1 109 


RSTPT 


000062R 


482* 










RTSSET 


0<)4144R 


1271 


1 2731 


12B9 






R4TAB 


00505OR 


1311» 


1 4941 








SRADR 


00005 2 R 


4761 










SPAREl 


000202R 


504* 










SPARE2 


000204R 


505* 










SPAREl 


•0020bR 


5061 










SPARE4 


B00210R 


507* 










SPOINT 


OaO024R 


4651 


617 








SPSIZ X 


000040 


1 1 


483 








SR! 


9.4001 6R 


4611 


616 









697 
1379 



733 
1313 



14611 
14511 



1410* 
845* 



1136 
1093 



1439* 

1361 
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TABLE - 
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START 


e00333R 




464 


6301 










STAI 


0a0i»20R 




4631 












SUH 


0in30R 




1398 


15071 










SUMl 


01 1214R 




1368 


15171 










SVBa 


S9S»032R 




4£Si 












SVRl 


0D0034R 




469* 












SVR2 


0000 3oR 




4701 












SVR3 


000040R 




4711 












SVR4 


»ee042R 




4T2S 












SVR5 


«00044R 




4731 












SVR6 


»0e046R 




4741 












SYNC 


9001 74R 




S00t 












SYMCNT 


0046 32R 




5S5* 


945 


958« 


:4i6s 






TIDONE 


M3706R 




1195 


12151 










TTEXIT 


903634R 




1190 


U99t 


12S8 


1212 






TIMCHK 


004300R 




721 


1317 


13261 


1343 






TIME = 


«••••» 


G 


490f 


1310 


1346 








TIHELN 


M0170R 




4981 


751 


752 


763 


809 


820 


TIMKEP 


004224R 




862 


926 


1178 


Oaef 






TIMTAB 


P4S030R 




1 309* 


1310O 


14851 








TMT 


90337bR 




764 


810 


855 


1152* 






THTDON 


904720R 




864* 


868 


888* 


I153» 


14431 




TMTINT 


003S46R 




1 156 


11811 










TMTPET 


B04714R 




1 152» 


1168 


1218« 


1230 


1232 


1257 


TMTTIM 


004710R 




763* 


809* 


1174 


14391 






TPX » 


000000 




4901 












TRAPX * 


000020 




4901 












TSYNCT 


C04724R 




953* 


1160» 


1165* 


1202 


1206* 


i44St 


TXADBl 


004670R 




757# 


803* 


849* 


1209 


1210* 


14311 


TXA0P2 


004674R 




761» 


807* 


854* 


1196 


1197» 


14334 


TXCNTl 


004700R 




75e» 


759» 


804* 


605* 


•51« 


852* 


TXCNT2 


004704R 




760» 


806* 


853» 


1194 


1198» 


1437i 


TXTO 


003772R 




1173 


12371 










TXT0R4 


i«04770R 




686* 


687» 


1247* 


1251 


1256» 


1463t 


VCTSAV 


»04b06R 




710« 


910 


1154 


1266 


1406* 




VECTOR 


0000 10R 




4S7I 


708 










WAIT 3 


»••••• 


G 


4901 


659 










WASADR 


00005 4R 




4781 












XFLAG 


00000SR 




4551 












X4 


»e3U4R 




1072 


1083* 










X5 


003124R 




1057 


1084 


10871 


1094 






, X 


011437R 




15001 


15011 


1551* 









14411 



1211* 1435* 



000^00 
011437 



000 
001 



% ERRORS DETECTED: 1 

% DEFAULT GLOBALS GENERATED: 1 

•NLAA,NLAA/SOL/CRFSS¥M*DDXCOM,NLAA 
PUN-TIHEl 7 12 1 SECONDS 
PUN-TIHE RATIO: 87/21»4.1 
COPE USED: 8K (IS PAGES) 



M2A» DEC/XU SYSTEM EXERCISER MODULE MACYll 77(732) 19-MAY-76 10:35 PAGE 2 
N2AA.P1 1 



i .REM % 

2 
3 
4 
5 
6 
7 
8 
9 
10 



11 

12 IDENTIFICATION 
14 

15 PRODUCT CODE; MA INDEC -1 I -DXN 1 A-A-D 

16 

17 PRODUCT NAME: DECNET DEC/XU SERVICE EXERCISER MODULE 

18 

19 DATE: 21-JUN-76 

20 

21 MAINTAINER: DEC/Xll DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN. 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WiTH THE 

30 TERMS OF SUCH LICENSE, 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE Op RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL, 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS, 
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IDENTIFICATION 



PRODUCT CODE: MAINDEC-1 1 ■'DXN2A-A-D 

PRODUCT NAME: OECNET DEC/Xll EXERCISER SERVICE MODULE 
DATE: 21-JUN-76 

maintainer: dec/xu diagnostic Group 

THE information IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY AppEAR WITHIN, 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE, 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE Or RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 



COPYRIGHT (C) 1976 DIGITAL EQUllpMENT CORPORATION, MAYNARD, MASS, 

1, ABSTRACT 

N2A? MODULE Is A SERVICE MODULE WHICH MUST BE USED WHEN 
ANY DECNET DEC/Xll MODULE IS USED. IT MUST BE CONFIGURED 
AFTER THE LAST DECWET DEC/Xll MODULE AND IN FRONT OF THE CLOCK MODULE 
AND ALL OTHER NORMAL DEC/XU MODULES. ITS PURPOSE IS TO PROVIDE A 
PAUSE POINT IN THE RUN TIME EXERCISER TO ALLOW ALL NODES TO GET ALL 
PHONE CONNECTIONS MADE BEFORE EXERCISING BEGINS. IT ALSO PROVIDES A 
DN11 HANDLER FOR AUTO CALL UNITS. (NOT YET SUPPORTED) 

2, HARDWARE REQUIREMENTS 
NONE 

3, SOFTWARE REqIrEMENTS 

N2A? SHOULD ONLY BE USED IN A DEC/XU EXERCISER THAT ALsO CONTAINS 
THE NIA? MODULE* A CLOCK MODULE* AND ONE OR MORE DECNET IDEC/XU MODULES, 

4, OPERATING PROCFDUPES 



N2AA DEC/Xll SYSTEM CXERCISF.R MODULE 
N2AA.PU 
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IF SRl HAS BIT SET TO 0, THE MODULE WILL TYPE OUT A MESSAGE 
REQUESTING THAT ALL PHONE CONNECTIONS SHOULD BE MADE. WHEN THIS MESSAGE 
IS TYPED OUT ON ALL NODES, THE OPERATORS MAY BEGIN TO DIAL ALL 
MANUAL CONNECTIONS, WHEN DONE, THE OPERATOR AT EACH NODE SHOULD 
TYPE A CARRIAGE RETURN, ALLOWING THE EXERCISING TO BEGIN. AT THIS 
POINT THE N2A? MODULE WILL DESELECT ITSELF, 

IF SRI HAS BIT SET TO 1, THE MODULE WILL ATTEMPT TO DIAL 
PHONE CONNECTIONS USING DNH'S. DVA,VCT, AND BRl SHOULD 
BE SET TO THE LOWEST ADDRESSED DNU. THE MODULE WILL TYPE A P» 
PROMT REQUESTING THE FIRST PHONE NUMBER, IT WILL ACCEPT ONLY DIGITS, 
DO NOT TYPE -'S AS PART OF THE NUMBER. TYPE A CARRIAGE RETURN AT THE 
END OF THE PHONE NUMBER AND THEN THE MODULE WILL ATTEMPT THE PHONE CALL. 
THE MODULE WILL TYPE ANOTHER Pi WHEN IT HAS SUCCESSFULLY DIALED 
THE NUMBER, ALLOWING FOR ANY NUMBER OF DNll'S TO BE USED. 
A CARRIAGE RETURN WITH NO NUMBER INDICATES YOU ARE DONE USING DNll'S 
AND THE MODULE SHOULD CONTINUE ON, IT WILL THEN GO ON TO THE MANUAL 
CONNECTION PHASE AS DESCRIBED ABOVE, 

THERE ARE 4 ERROR NUMBERS TYPED OUT FOR DNll PROBLEMS! 

THLY ARE! 

* PND (PRESENT NEXT DIGIT) BIT NOT SET 

1 M POWER IN ACU FAILED OR ACR (ABANDONED CALL AND 

RETRY) BIT SET 

2 « SOFTWARE TIMED OUT AFTER WAITING 3 MINUTES FOR 1 CALL 

3 s POWER NOT ON IN ACU (AUT0-CALL UNIT) 

»»•»«»«»•••••»«««»»•«»«••»««•«*•««*«•««««»«««»•*«•*«**»»«««««««««» 

IMPORTANT 

EVERY NODE TO BE EXERCISED MUST REACH THE MESSAGE Pt IF SRI HAS BIT SET, 

OR "DIAL ALL MANUAL CONNECTIONS" IF SRI BIT IS A 
ZERO BEFORE ANY OTHER ACTION, INCLUDING ENTERING PHONE NUMBERS 
OR MANUALLY DIALING CONNECTIONS, IS ATTEMPTED. OTHERWISE 
LINES THAT APPEAR TO BE SET UP MAY HANG UP BY THEMSELVES BECAUSE 
THE OTHER SIDE OF THE LINE HAS NOT CONDITIONED THE MODEM TO ACCEPT A CALL. 
»*»••••«»»•*»»««•«««»««»••«*«««»«*«•»•*»»•»»»•«»»*«««»»*»»»«»•»«»« 

AFTER ALL MANUAL CONNECTIONS ARE COMpLETE AND THE OPERATOR TYPES 
A CARRIAGE RETURN, THE N2A? MODULE WILL DESELECT ITSELF BECAUSE IT 
IS NO LONGER NEEDED. 

5, OPERATOR OPTIONS 

THE ONLY OPTION Is TO SET SRI BIT TO A ONE TO ALLOW THE 
MODULF TO DIAL AUTO DIAL UNITS, (THIS OpTION IS NOT YET SUPPORTED) 
% 
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.TITLE 
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; 


DOXCOH 


VERSION 4 9/6/75 


143 












.LIST 


SIN 


144 














145 


000000* 








BCGINt 






146 


000000' 


031 116 


040501 


040 


HODNAMi 


.ASCII 


/N2AA / JMODULE NAME. 


147 


#00005' 


080 






XFLASi 


.BKTE 


QP^^ lUSEC TO KEEP TRACK OF WBUf F USAlit 


148 


•00006' 


175200 






ADDR: 


175200'» 


9 J 1ST DEVICE AOOR. 


149 


000010' 


000350 






VECTOR! 


350+0 


;1ST DEVICE VECTOR, 


isa 


000012* 


208 






BRlt 


.BYTE 


PRTY4*0 ;1ST BR LEVEL. 


i S 1 


e^esiJ' 


@e@ 






SS2s 




PRTYS^e S3K!> BS LEVEL. 


152 


1*00014' 


000001 






DVIDl: 


0+1 


jDEVICE INDICATOR 1. 


153 


000016' 


000000 






SRli 


OPEN 


•SWITCH REGISTER I 


154 










;••••»••••••••*•#»»••»•••••••»•♦••••••♦••♦••»*•••»••♦*•••••••••*•• 


155 


S00020' 


140000 






STAT: 


140000 


; STATUS WORD. 


156, 


000022* 


030164' 






INITJ 


START 


; MODULE START ADDR, 


157 


00002 4' 


000164' 






SPOINTI 


HOOSP 


, MODULE STACK POINTER. 


158 


000026* 


000000 






PASCNTJ 





;PASS COUNTER. 
; ERROR COUNTER. 


159 


900030' 


000000 






ERRCNTI 





160 


000032* 


000000 






SVR0t 


OPEN 


;LOC TO SAVE R0. 


161 


000034* 


000000 






SVRl: 


OPEN 


•LOC TO SAVE Rl. 


162 


000036* 


000000 






SVR2i 


OPEN 


;LOC TO SAVE R2. 


163 


000040* 


000000 






SVR3t 


OPEN 


J LOC TO SAVE R3. 


164 


000042' 


090000 






SVR4: 


OPEN 


;LOC TO SAVE R4. 


165 


M0044* 


000000 






SVR5: 


OPEN 


;LOC TO SAVE R5. 


166 


000046* 


000000 






SVR6I 


OPEN 


;LOC TO SAVE R6. 


167 


000050* 


000000 






CSRAt 


OPEN 


;ADOR OF CURRENT CSR. 


168 


000052* 








SBADRs 




;ADOR OF GOOD DATA, OR 


169 


000052' 


000000 






ACSRi 


OPEN 


^CONTENTS OF CSR. 


1719 


900054* 








MASAORt 




;ADOR or BAD DATA. OR 


171 


000054' 


000000 






ASTATs 


OPEN 


{STATUS REG CONTENTS. 


172 


000056' 


000000 






ASBi 


OPEN 


; EXPECTED DATA. 


173 


000060' 


000000 






AHASt 


OPEN 


•ACTUAL DATA. 


174 


000062' 


300164' 






RSIRT: 


RE5TRT 


; RESTART ADDRESS AFTER END OF PASS 


175 












.REPT 


SPSIZ {MODULE STACK STARTS HERE. 


17b 












.NLISt 




177 












.WORD 





178 












.LIST 




179 












.ENDR 




18» 


000164' 








HODSPl 






18i 












182 












.GLOBL 


TIME. TKS, TKB, TYPE, HAIT 


183 


000164' 








STARTi 






184 


000164' 


000240 






PESTRTI 


NOP 




185 


M00166' 


012700 


000020 






MOV 


120, R0 JSET UP TIME LOOp TO GIVE OTHER SYSTEMS 


186 














JTIME TO SET DATA TERM. READY OH THEIR LIN 


187 


000172' 


005001 






l$l 


CLR 


Rl 


188 


000174' 


005301 






2«t 


DEC 


Rl ;COUNT A TIC 


189 


000176' 


901 376 








BNE 


21 ; 

R0 jCOUNTS TRIPS THROUGH LITTLE LOOP 


!90 


000200' 


005 300 








DEC 


191 


000202* 


001373 








BNE 


It ;G0 COUNT SOME MORE 


192 


000204' 


017767 


000000G 


000500 




MOV 


•TK8,TKSSAV ;SAVE TTY STATUS 


193 


900212' 


005077 


000000G 






CLR 


•TKS {DISABLE INTERRUPTS 


194 


000216' 


005067 


000432 






CLR 


ERRNUM {CLEAR ERR t 
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195 


000222' 


032767 


000001 177566 




BIT 


11, SRI 


{ANY DM1 I'S? 


196 


000230' 


001002 






BNE 


3t 


;BR IF 


197 


»00232' 


000167 


000346 




JMP 


DONE 


{NO SKIP 


198 


000236' 


016704 


177544 


3tt 


MOV 


ADDR,R4 


{GET DEVICE ADDRESS 


199 


000242' 


005014 




GETNUMi 


CLR 


(R4) 


{RESET DNll 


230 


B90244* 


91 2700 


000656* 




MOV 


tNUMBER, RO 


jRO POINTS TO PHONE f 


201 


000250* 


005001 






CLR 


Rl 


{COUNTS DIGIT 


202 


000252* 


005067 


000376 




CLR 


ERRNUM 


{SHOWS WHICH TYPE OF DN ERROR 


203 


000256* 


904567 


0000006 




JSR 


R5,TYPE 


{TYPE A "P* • 


204 


000262* 


000714' 






PNH 






205 


M0264* 


1057 77 


000000G 


311 


TSTB 


•TKS 


{WAIT FOR A CHARACTER 


206 


•00270* 


100375 






BPL 


3* 




207 


000272* 


117702 


0000006 




HOVB 


9TKB,R2 


{BRING CHAR IN 


208 


000276* 


142702 


000200 




BICB 


1200, R2 


{GET PID OF PARITY 


209 


000302* 


120227 


000015 




CHP8 




{IS IT A CR7 


210 


000306' 


001430 






BEO 


b»' 


{BR IF DONE INPUTTING 


211 


000310' 


162702 


000060 




SUB 


t60,R2 


{HAKE IT A DIGIT 


212 


000314* 


003363 






BGT 


3$ 


{GO BACK AND IGNORE IT 


213 


•00316* 


120227 


000117 




CMPB 


R2,I117 


{IS IT A RUBOUT? 


214 


000322* 


001406 






BEO 


4t 


{BR IF YES 


215 


•00324* 


170227 


000012 




CMPB 


R2,I12 


{IS IT A LEGAL DIGIT 


216 


•00330' 


002 355 






BGE 


3t 


{BR BACK AND IGNORE IT 


717 


•00332' 


1 10220 






MOVB 


R2,(R0)f 


{SAVE DIGIT 


218 


•00334* 


005201 






INC 


Rl 


{COUNT A DIGIT 


219 


•00336' 


000404 






BR 


5« 




220 


•00340' 






4(: 








221 


•40340* 


005701 






TST 


Rl 


{ANY DIGITS TO RUBOUT? 


222 


•00342* 


001750 






BEQ 


3S 


{BR IF NOT 


223 


•00344* 


114002 






HOVB 


-(R0),R2 


{GET OLD CHAR 


224 


A00346' 


005 301 






DEC 


Rl 


{1 LESS DIGIT 


225 


•00350* 


062702 


000060 


511 


ADD 


160, R2 


{MAKE IT ASCII 


226 


000354* 


1 10267 


000342 




MOVB 


P2,TBur 


{TYPE IT 


227 


•00360* 


004567 


00fl000G 




JSR 


RS.TYPE 




228 


000364' 


000722' 






TBUF 






229 


•00366' 


000736 






BR 


31 


{GET NEXT DIGIT 


230 


•00370' 


004567 


000000G 


6»l 


JSR 


R5,TYPE 


(TYPE A CR,LF 






0^0724* 






CPLF 






232 


•00376' 


rO5701 






TST 


Rl 


{ANY DIGITS? 


233 


•00400* 


001002 






BNE 


7$ 


{BR IF YES 


234 


•00402* 


000167 


000176 




JMP 


DONE 


{YES, DONE DIALING 


235 


•00406' 


000240 




7t: 


NOP 






236 


•00410' 


012703 


000656* 




NOV 


|NUMBER,R3 


{GET ADDR OF NUMBER 


237 


000414' 


012714 


000001 




MOV 


11, (R4) 


{SET CALL REO 


738 


000420* 


U05714 






TST 


(R4} 


{IS PHR ON IN ACU 


239 


•00422' 


100445 






BMI 


ERR 


{BR IF NOT 


240 


000424' 


000415 






BR 


DIAL 


{GO START CALLING 


241 


•08426* 


032714 


000200 


DNL1 : 


BIT 


1208. (R4} 


{IS DOING FLAG SET 


242 


000432* 


001001 






8NF 


11 


{BR IF YES 


243 


000434* 


000774 






BR 


DNLl 


{BR BACK 


244 


•00436* 


042714 


000200 


It* 


BIC 


1280, CR4) 


{CLEAR DONE FLAG 


245 


•00442* 


032714 


140000 




BIT 


f 140000, CR4) 


{ANY ERRORS? 


246 


900446* 


001035 






BNE 


ERR+4 


{BR IF YES 


247 


M0450* 


0^2714 


O0O02P 




BIT 


120, (R4) 


{IS PRESENT NEXT DIGIT SET? 


2*8 


000454* 


001001 






BNE 


DIAL 


{BR IF YES 


249 


000456* 


000432 






BR 


ERR+6 


{ERR, PNO NOT SET 


250 


000460' 


112364 


000001 


blAL; 


l<OVB 


(PS)*, l(R4) 


{LOAD NEXT DIGIT 
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SEQ ei67 



251 


900464 ' 


05371 4 


AAAAA9 








I2f (R4) 


;SET DIGIT PRESENT 


353 




005 30 1 








nrr 


Rl 


jCOUNT A DIGIT 


35 3 


f90047 2 ' 










PMC 


DNLI 


;BR IF MORE DIGITS 




00047 4 ' 


0l 3703 






Its 


■nv 


I2000r R3 


}SET UP TIMING LOOP 


255 






000300 




2$ t 


BIT 


12001 (R4) 


;WAIT FOR DONE 


256 


#00504 


001 006 








BNE 


41 


}BR IF YES 


257 




005005 








CLP 


R5 


256 


00051 


005305 






381 


DEC 


R5 


fJUST KILLING TIME 


259 


0i305S 2 










BNE 


31 


360 


0005 1 4 


005 303 








DEC 


R3 


(COUNT LITTLE LOOPS 


26t 


00051 6 


00 1 370 








BNE 


2t 


jBR BACK IF NOT TIME OUT 


262 


000530 


000407 








BR 


ERR + 2 


;BR IF SO TO ERR 


263 


000532 


0337 1 4 


040000 




411 


BIT 


I40000t (R4) 


;V(AS CALL ABANDONED 


364 




001005 










EHR+4 


;BR IF YES 














TST 


(R4 ) ♦ 


•oU'^r TO HI^aT UW 






000 167 








TMP 


GCTNUN 


;GET NEXT PHONE NUMBER 




0005 36 




0001 12 




ERR 


Tur 


ERRNUM 


(SHOW WHICH TYPE ERR 
• 








ana i 






TMr 


ERRNUM 


269 




005367 








THr 


PDDUflll 




37^ 


000553' 


062767 


000060 


00007 4 




»DD 


CDDmill 


; 


27 1 




1 1 b767 


a jiaA7 CI 


000 15 4 




MOVB 


bKRnUnf E.A 


;TYPE ERR MSG 














CLB 




(LLHAR r OR WtAT Tlflt 


27 3 


000572' 


004567 










R5# TYPE 


274 


0005 76 ' 


0007 30 ' 








EPRHoG 






275 


wvo vtc 




177436 










(TRY AGAIN 




000604 








DONE I 


l!^ V. 


R5»TYPE 


.fcr r uTu tA UKirc u&Uit&T ^kf t c 
jTilLL nin TO nA^c. nAnUAu lALLd 


277 


WVO 1 u 


00076 1 








nCALL 




276 


000612* 


H»5777 


000000G 




l$l 


TSTB 


•TKS 


jWAIT FOR CB 


279 


•00616* 


100375 








BPL 


It 










000000G 








0TKB f R2 


;BRING CHAR IN 


28 1 


J* 


1 497a7 


900300 






BICB 


*300,R2 


jGET RID OF PARITY 


282 


900630 


1 7?7 5 


0000 1 5 






CHPB 


115, R2 


;IS IT A CRT 




0006 34 


0ol 366 








BNE 


1« 


:N0> IGNORE IT 


284 


900636 


005067 


000000G 






CLR 


WAIT 


;CLEAR GLOBAL FLAG 


285 


90064 2 






000000V 




KOV 


TK8SAV,«TKS 


; RESTORE TTY 














ENDIf BEGIN 


% 



















;HOLDS ERR NUMBER 




9vv65o 


WW 1 o 






NUMBER 1 


.BLK" 


16 


} PHONE i GOES HERE 


29« 




000000 






inoSAVI 







ooi 


90071 4' 




J7410 


000 


PNH 1 


.ASCII 


•P» ? * 


jPHONE i PROMPT MESSAGE 




0007 3 2 ' 


000000 













yl CHAR TYPE BUFFER 


393 












.BYTE 


15 




294 




012 








.BYTE 


12 


295 


9007 26 


000000 








.WORD 







296 


9007 30' 


0*7104 


042440 


051 1 22 


ERRMSGt 


.ASCII 


•ON ERROR »• 




297 




05 1117 


03 1 440 












296 










EX t 


.BYTE 


40 




299 


0O074 3 


054 


05 1 1 2 4 


020 131 




.ASCIZ 


•,TRY AGAIN.' 


<15><12> 


300 


000750' 


043501 


044501 


027 116 










301 


900756' 


005015 


000 












302 


















303 


000761 ' 


015 


042013 


040511 


HCALLt 


.ASCII 


<IS><t2>'DIAL 


ALL MANUAL PHONE CONNECTIONS, '< 1 5>< 1 2> 


3tt4 


030766' 


020114 


046101 


020114 










305 


000774' 


040515 


053516 


046101 










306 


901002' 


05004(t 


047510 


042516 
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.ASCIH 'TYPE CP WHEN DONE. *<1 5>< 1 2> 



N?AA.Pn 








307 


•0t01>)' 


041440 


047117 


042516 


308 


001016' 


352103 


047511 


051516 


309 


•01024' 


306454 


012 




31PI 


901027* 


124 


050131 


020105 


311 


001034' 


051103 


053440 


042510 


312 


001042' 


020116 


047504 


043516 


313 


001050* 


006456 


000012 




114 




000001 
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N3AA.Pn 


CROSS 


REFERENCE 


TABLE =- USER 1 


ACSR 


»a00S2R 


1691 




ADDP 


»a0e06R 


148f 


198 


ASB 


00005 6 R 


172» 




ASTAT 


•0005 «R 


1711 




AKAS 


0S6060R 


173* 




BDCNV « 


•••••• G 


It 




BEGIN 


000000R 


1451 


287 


BITS » 


900001 


1821 




BIT! « 


000002 


iS2« 




BITJ0 s 


002000 


lB2t 




BITll » 


004000 


1821 




BIT12 » 


010000 


1°2I 




8IT13 « 




i$2t 




BIT14 ■ 


040000 


lS2i 




B1T15 « 


1 00000 


182f 




BIT2 s 


•00004 


1821 




BITJ » 


•00010 


182i 




BIT4 s 


000020 


1821 




BITS « 


000040 


1821 




BIT6 z 


•1*0100 


182f 




BIT7 » 


000200 


1821 




BITS « 


•(■0400 


1821 




BIT9 ■ 


001000 


182* 




BREAKS* 


104407 


182* 




BPl 


000012R 


150* 




BR2 


•0001 3R 


151t 




CDATA$» 


104414 


182t 




CRLF 


•00724R 


231 


293* 


CSRk 


•0005«)R 


1671 




DATCKSa 


104417 


182t 




DATER$« 


104405 


182f 




DIAL 


•00460R 


240 


248 250* 


DNLl 


•00426R 


241t 


243 253 


DONE 


•00604R 


197 


234 276* 


DVIOl 


0000 14R 


1521 




ENDPSSx 


104402 


1821 




ENDS « 


104403 


182* 


287 


ERR 


0005 


239 


246 249 


ERRCNT 


00003«1R 


159t 




ERRMSG 


0007 30R 


274 


296* 


ERRNUM 


•00654R 


194* 


202» 267* 


ERRNS 3 


10441i9 


162t 




ERRORsa 


S 04404 


iS2i 




EX 


000742R 


271» 


298* 


EXITS = 


104400 


182* 




GETNUH 


000242R 


199» 


266 275 


GETPASx 


10441) 


182t 




GWBUFS= 


104412 


182* 




INIT 


•00022R 


156* 




MAP22S* 


1 04415 


182* 




NCALL 


•00T61R 


277 


303* 


HODNAM 




146* 




MODSP 


•00164R 


157 


180* 


HSGHS = 


104411 


182* 




NSGSS s 


104416 


182* 




MSGS s 


104406 


182* 





262 
268* 



264 
269* 



267* 
270» 



272* 
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NUMBER 


000656R 


200 


236 


289* 


OACNV s 


••••** G 


1* 






OPEN X 


000000 


147 


153 


160 






173 


182* 




PASCNT 


•00026 R 


158* 








990984 


182* 






PNH 


0007 14R 


204 


291* 




POPSP » 


•05726 


182* 






P0PSP2* 


•22626 


182* 






PRTY a 


•00000 


182* 






PPTY0 = 


000000 


151 


182* 




PPIYl a 


•0004a 


182* 






PRTY2 « 


000100 


182* 






PRTY3 » 


•00140 


182* 






PPTY4 » 


000200 


150 


182* 




PRTY5 = 


<>00240 


182* 






PPTY6 a 


00030lr* 


182* 






PPTY7 a 


•00340 


182* 






PS a 


177776 


182* 






PSW a 


177776 


182* 






PUSH a 


005746 


182* 






PUSH? a 


024646 


182* 






QUES a 


104401 


182* 






RESTRT 


000t64R 


174 


184* 




RSTRT 


•0006 2 R 


174* 






SBADR 


000052R 


168* 






SPOINT 


00002 4 R 


157* 






SPSIZ a 


00004^ 


1* 


175 




SRI 


90001 6 R 


153* 


195 




START 


000164R 


156 


183* 




STAT 


»00t)2OR 


155t 






SVR0 


SJ00B32H 


1601 






SVB1 


•000)4R 


1611 






SVR2 


tt.>k)036R 


lb2i 






SVR3 


0e0k$4t1R 


1631 






SVR4 


•O0042R 


1641 






SVRS 




!65t 






SVR6 


000046R 


166* 






TBUF 


000722R 


226* 


228 


292* 


TIME a 




182* 






TKB a 


*•••«• G 


182* 


207 


280 


TKS a 




182* 


192 


193* 


TK5SAV 


•00712R 


192» 


2"6 


290* 


TPX a 


000O0t1 


182* 






TPAPX a 


00»020 


182* 






TYPE a 


•••*•• G 


1821 


203 


227 


VECTOR 


»00Ctl0R 


149* 






WAIT a 


•••••• G 


182* 


284* 




WASADR 


00005 4 R 


170* 






XFLAG 


000«»0SR 


1*7* 








•01054H 


289* 
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162 163 164 



169 171 172 



278 286* 



273 276 



APS. OOOOOi) fftJI 
»01i^54 001 



NSAA OeC/Xti SYSTEM CXCnCZSER NODin.C MACrti 37(732) l9'NAy7t iei3S PkGE 12 
NSU.Plt CROSS RErCRENCC TABLE >• USER SYMBOLS 



SEQ HtTI 



ERRORS OCTECTCDI 

DEFAULT GLOBALS CENERATEDl 

•N3AA,N3AA/80L/CRFsSYHaDDXC0M,N2AA 
RU<l«TIMEl 2 3 .« SECONDS 
PUN>TIME RATIOl «0/7aS.4 
CORE USEOI 8K (tS PACES) 



